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The problem with most real-time operating systems is 
simple, they're not an integrated solution. You end up dealing 
with a multitude of suppliers for languages, compilers, debug- 
gers and other important development tools. And when 
something does go wrong, it can be a frustrating experience 
trying to straighten out the mess. 

Why Not Try the 
Microware One-Stop 
Total Solution? 

Microware's OS-9 Real-Time 
Operating System is a total inte- 
grated software system, not just 
a kernel. VAfe offer an extensive 
set of development tools, lan- 
guages, I/O and Kernel options. 
And this total integrated solution 
is entirely designed, built and 
supported by the same expert 
Microware team. 
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The OS-9 Success Kit 



A Total Integrated Solution tor Your Next Project 



Development Tooli: 

C Source level Dsbuflger 
Symbol* Debugger 
System SI21 Deb gger 
uMACs Texl Editor 
fleclromc Mall 
Communications 
Super Shell 

Kernel Options: 

MMUl&ecurily Protection] Suppoil 
Mjth Coprocessor Support 

•fositonloi UNIX versktrttanlbDto 
■•VAXtnuW 



Modularity Lets YOU Choose fust What You Need. 

The modular design of OS-9 allows our Operating System 
to adapt as your requirements change. OS-9 can support a 
complete spectrum of applications — from embedded ROM- 
based code in board-level products all the way up to large 
scale systems. 

Support is Part 
of the Package. 

Microware is proudly setting 
the industry's standard for cus- 
tomer support. \bu'\\ find pro- 
fessional and comprehensive 
technical documentation and a 
Customer Hotline staffed by 
courteous and authoritative soft- 
ware engineers. 

So slop messing with sim- 
ple kernels and independent 
suppliers. Call Microware today 
and find out more about the 
"One-Stop Integrated Solution" 
with OS-9! 



Languages: 

c* 

Basle 

Pascal 

Foiiian 

Ada" 

Assembler 

I/O Options: 

SCSI. SASI&SMD Disks 

3. 5-. 8-inch Diskettes 
MafiiKlk Tape 
Etfiemet • TCP/IP 
Aicnet- OS-9 (Net 



~~7wctomtte^~ OS-9 



Microware Systems Corporation 
190i N.W.I 14th Street 
Des Moines, Iowa 50322 
Phone: 515/224-1929 



Western Regional Office 
4401 Great America Parkway 
Santa Clara, California 95054 
Phone: 408/980-0201 



Microware japan Ltd. 
41-19 1 loncho 4-Chome 
Funabashi City 
Chiba 273, Japan 
Phone: 0474 (22) 1747 
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PL/itS-68k 



A Complete Program Development Environment 

MC68000 - MC68010 - MC68020/881 Processors 

OS-9 User-state or System-state Modules 

Stand Alone ROM Based Targets 
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WINDRUSH 

Micro Systems Ltd. 

Worstead Laboratories, North Walsham, 
Norfolk NR28 9SA. England 

TEL: (44) (692) 404086 
FAX: (44) (692) 404091 
TLX: 975548 WMICRO G 



PL/iS-68k 

for 68008/68000/68010 Targets $375.00 

PL/iS-020 

for 68008/68000/68010 

& 68020/881 Targets $475.00 

Prices include Air Mail Postage, Insurance 
and one year FREE updates. 
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With 'C Source J 
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A Division of 



S.E. 
Med/* 



I, ft 3900 Cuwh SmA Rd. 

r _ Hiim, Tn 37143 
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PAT FROM S. E. MEDIA « A FULL FEATURED SCREEN ORIENTED TEXT EDITOR 

with all the best of PIE. For those who swore by and loved PIE, this is for YOU! All PIE 
features & much more! Too many features to list. And if you don't like ours, change or add 
your own. C source included. Easily configured to your CRT terminal, with special configuration 
section. No sweat! 

68008 - 68000 - 68010 - 68020 OS-9 68K $229.00 



COMBO 



PAT/JUST 

Special $249.00 

JUST 

JUST from S. E. MEDIA - - Text formatter written by Ron Anderson; for dot matrix 
printers, provides many unique features. Output formatted to the display. User con- 
figurable for adapting to other printers. Comes set-up for Epson MX80 with Graflex. Up 
to 10 imbedded printer control commands. Compensates for double width printing. 
Includes normal line width, page numbering, margin, indent, paragraph, space, vertical 
skip lines, page length, centering, fill, justification, etc. Use with PAT or any other text 
editor. The ONLY stand alone text processor for the 68XXX OS-9 68K, that we have 
seen. And at a very LOW PRICE! Order from: S.E. MEDIA - see catalog this issue. 

68008 - 68000 - 68010 - 68020 OS-9 68K 
V With 'C source $79.95 J 
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The MUSTANG-020 68020 SBC provides a powerful, 
campacl,32bil computer system featuring the "slate of the art" 
Motorola 68020 "super" micro- procascr. It comes standard 
with 2 megabyte of high-speed SIP dynamic RAM. serial and 
parallel ports, floppy disk coruro Her, a S ASI hard disk interface 
for intelligent hard disk controllers and a battel y backed -up 
lime-of-day clock. Provisions are made for the super powerful 
Motorola MC6888 1 floating point math co-processor, for 
heavy math and number crunching applications. An optional 
network interface uses one serial (four (4) standard, expandsbl e 
to 20) as a 125/bit per second network channel. Supports as 
many as 32 nodes. 

The MUSTANG-020 is ideally suited to a wide variety of 
applications. It provides a cost effective alternative to the other 
MC68020 systems now available. It is an excellent introductory 
tool to the world of hi-power, hi-spaed new generation "super 
micros". In practical applications it has numerous applications, 
ranging from scientific to education. It is already being used by 
government agencies, labs, universities, business and practi- 
cally every other critical applications center, worldwide, where 
true multi-user, multi-tasking needs exist. The MUSTANG- 
020 is UNIX C level V compatible. Where low cost and power 
is a must, the MUSTANG-020 is the answer, as many have 
discovered. Proving that price is not the standard for quality I 

As a software development station, a general purpose 
scientific or small to medium business computer, or a super 
efficient real-time controller in process control the MUS- 
TANG-020 is the cost effective choice. With the optional 
MC68881 floating point math co-processor installed, it has the 
capability of systems costing many times over it's total acqui- 
sition cost 

With the DATA-COMP "total package", consisting of a 



DATA-COMP Proudly Presen s the First 

Under $4300 "SUPER MICRO" See other 

advertising (backcover) for economy 

system (68008) - under $2400 complete! 



heavy duty metal cabinet, switching power supply with rf/line 
bypassing. 5 inch DS/DD 80 track floppy. Xebec hard disk 
controller, 25 megabyte Winchester hard disk, four serial RS- 
232 pons and a UNIX C level V compatible multi-tasking, 
multi-user operating system, the price is under $4300. w/12.5 
megahertz system clock (limited rime offer). Most all popular 
high level languages are available at very reasonable cost. The 
system is expandable to 32serial pons, ala cost of less than S6S 
per port, in multiples of 8 port expansion options. 
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K 



Data-Comp Division 

n /^^MsB^v\ ^ Decadeof Quality Service'^ 
*}" ^^3P^ Syste™ 5 World-Wide 
Computer Publishing, Inc. 5900 Cassandra Smith Road 
Telephone 615 642-4601 ■ Telex 510 600-6630 Hixson, Tn 37343 



The SBC fully populated, quality tested, with 4 serial ports 
pre- wired and board mounted is available for less that $2500. 
Quantity discounts are available for OEM and special applica- 
tions, in quantity. All thai is required to bring to complete 
"system" standards is a cabinet, power supply, disks and oper- 
ating system. All tltese are available as separate items from 
DATA-COMP. 




Avaitablt 12.5- 25 Mhz systems, tall for special pritts 

A special version of the Motorola020-BUG is installed on 
each board. 020-BUG is a ROM based debugger package with 
facilities for downloading and executing user programs from a 
host system. It includes commands for display and modifica- 
tion of memory , bieakpo int capabilities, a powerful assembler/ 
disassemble and numerous system diagnostics. Various 020- 
BUG system rouaines, sue has I/O handlers are available for user 
programs. 

Normal system speed is 3-43 MIPS, with burst up to 10 
MIPS, at 16.6 megahertz. Intelligent I/O available for some 
operating systems. 

Hands-on "actual experience sessions", before you buy, 
are available from DATA-COMP. Call or write for additional 
mformari on or pricing. 
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Mustang Specifications 

1Z5 Mhz (optional 16.6 Mbz available) MC68020 full 31-bit wide path 
32-bii wide data and eddreae bueea. noo- multiplexed 

Of) Chip ionrucfion cache 

object code ocanpaiible with all 68XXX family proccxaora 
enhanced bstructiee act - math co-cmsccaaer interface 
68881 math hiipccd floaiing peon cwpraxaacr (epocnal) 
direct exterjeicn of full 68021) uvnucum act 
Adl auppon IEEE P754. draft 1 0.0 
ovnmcaod enta) and other acnastjfk math fnnrrifu 
2 Megabyte of SIP RAM (5 1 2 » 32 hit orpmzan' on) 
up lo 256K bylce of EPROM (64 a 32 Mia) 

4 Asyuchronoua acruJ VO part* aundt/d 
optional lo 20 teml porta 
aundud RS-232 imerf»cc 
ootional octHrork interface 

Tered 8 bat paralle) port (1 « MC68230) 
CottlUlicat type ptnoul 
supanBon outneux for IrO devices 
16 bit dau path 
256 byte addrtM apaoe 
2 interrupt ippuU 
clock and control aignaia 
Mourala 1/0 Channel Module, 
limoof dayclockVcaloadar wAbaticry backup 
OTuroUm for 2, 5 1/4" floppy dial dnvoi 
single or double aide, cingle or douhlo deraity 
35 lo 80 track adaaabie (48-96 TPf) 
SASI uuerface 

proyaaraaakb) e periodic interrupt generator 
interrupt rate front micro- aecon da loaccondi 
higlily accurate time baae (5 PPM) 

5 bit aenac awitch. readable by the CPU 
Hardware atAgkvaun capability 

Tboae hi-apcotl 68020 ayatema are pnaently working at NASA. Atomic Energy Cemminoon, 
(V j » rjmmj t Agoarica aa well aa l ! mverf)Uea.Buaineaa, Laba, and elber Cxtuca) Applicaoona 
Ccnten. worldwide, when «pead. raaih crunching and ntuln-uaer. muhi-tauung UNIX C level 
V com pa lability and low coat ia a moat. 




Don't be mislead! 

ONLY Dala-Comp 

delivers the Super 

MVSTANG-020 



Only the "PRO" Version 
of OS-9 Supported! 




This is HEAVY DUTY 
Country! 
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Mutaog-020SBC 




0490.00 


Cabins wAwiidun 8 PS 




J299.95 


5*-80 track floppy DS/DD 




8369.95 


Floppy Cable 




J39.95 


OS-9 68K Profeasional Venion 




$850.00 


C Compiler ($500 Value) 




N/C 


Winchmtcr Cable 




$39.95 


Wutchener Drive 25 Mbyte 




$895.00 


Hard Dtak Controller 




$395.00 


Sfupping USA UPS 




$10.00 


UriFLEX 


Leaa 


$100.00 


MC68881 frp math prona^ar 


Add 


$275.00 


16.67 Mhz MC68020 




$375.00 


16 67 Mhi MC6888] 




$375.00 


20 Mhz MC68020 Syi 




$750.00 


Note 41168881 chipa wodt wtlh 20 Mhz Sya 





Save $1000.00 
Complete 



$5299.80 



Data-Comp Division 

A Decade of Quality Service'^ 
Systems World-Wide 
Cofnputaw Publishing, inc. SSO0 Cawavtdra Smith Road 



Taaaphor-. 615 842^601 - Tatlan S1 600-6630 



Hiaion. Tn 37343 



25 Mbyte HD System 

$4299.80 
85Mbyte HD System 

$5748.80 

Note: Only Professional OS-9 Now Available (68020 Version) 

Includes ($500) C Compiler - 68020 A 68881 Supported - 

For UPGRADES Write or Call for Professional OS-9 Upgrade Kit 
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Dedicated to the serious OS-9 user. 

The fastest growing users group world-wide! 

6809-68020 

MORE DEVICES 



A Tutorial Series 

By: Ron Voigls 

2024 Baldwin Coun 
Glendale Heights, IL 60139 



If you read (he last column, you are probably asking what about 
the SCFMan type devices'? Last lime covered briefly device 
managers and drivers. 1 talked about device descriptors touch- 
ingon the RBF typedevices. But nothing funherwas saidaboul 
SCF device descriptors. Well that is this months topic. 

An SCF device is one which receives its input and sends it 
output a byte at a time. Rather then move the blocks of data like 
the RBF devices, it works on a byte-by-byte bases. This type of 
data flowispexftaps the easiest and yet is efficient. SCF devices 
include items like terminals, printers, video screens and key- 
boards. 

Last month I gave a sample assembly language program and 
showed how to write a device descriptor for an RBF device. 
This month 1 present the SCF version in the Listing. As will be 
seen, it is not really necessary to write one for SCF devices. But 
1 created this one for illustrative purposes. It is for /TERM on 
the Level 2 Color Computer 3. 

The header is similar to last month's RBF version. There are a 
few differences. The device capabilites is %000000 11 or $03. 
This is for read and write only. Obviously we could not make 
a directory out of it nor would we want everyone tied into the 
same terminal. It is not shareable either. 

The real changes take place in the initialization table. There are 
two pans to the table — the standard entries and the window 
entries. 

Standard Entries 

IT.DVC is the device type. 

0...SCF 

1...RBF 

2...PIPE 

4...SBF 

IT.UPC is the character case. 



0... upper and lower case 
1 ...upper case only 

1T.BSO is character backspace status. 
0.. .backspace over characters 
{...backspace while erasing 

IT. DLO is the line delete status. 
0... return to column 1 deleting line 
I. ..return to column t leaving line 

IT.EKO is echo characters to output. 
0... echo on 
I .. echo off 

1T.ALF is auto line feed. 
0...auto line feed off 
I. ..auto line feed on 

1T.NUL is the number of null characters after end-of-line. 

1T.PAU is the page pause status. 
O.no page pause 
I ..page pause 

IT.PAG is the number of lines per page. 

1T.BSP is the backspace character. Usually itisS08or A H. This 
can be changed. 

IT. DEL is the line delete character. Usually ilis$l8or A X. This 
can be changed. 

1T.EOR is the the end-of-record character. Usually it is SOD or 
A M. This can be changed. 

1T.EOF is the end-of-file character. Usually it is $ IB or the 
escape character. This can be changed. 
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IT.RPR is the reprint-line chaiacter. Usually it is $04 or A D. IT.ROW is the number or rows. Usually this 16 or 24. 
This can be changed. 

IT.WND is the window number. Usually this is a value of 
1T.DUP is the duplicate-last-line character. Usually it is SO I or through 1. 
A A. This can be changed. 

1T.VAL is the whether the rest of the data is valid. 
1T.PSC is thepause character. Usually ilis SI 7or A W.Thiscan C.data not valid 
be changed. l...data valid 



IT.INT is the inteiTupt character. Usually it is S03 or A C. This 
cah be changed. 

1T.QUT is the quit character. Usually it is $05 or A E. This can 
be changed. 

IT.BSE is the backspace echo character. Usually i I is $08 or A H. 
This differs from the other IT.BSP. since this is what is sent 
back to the terminal or printer. This can be changed. 

1T.OVF is the overflow character. Usually it is $07 or AG. "Ihis 
is character that rings the bell. 

1T.PAR is device parity byte. It is used to initialize a device 
control register when a path is opened to it. 

1T.BAU is the baud rate. The following values are a possible 

set. It could be different depending on the device driver . 

0...110 

1...300 

2. ..600 

3... 1200 

4. ..2400 

5...480O 

6...9600 

7... 19200 

1T.D2P is the attached device's name offset. "Ihe header 
already indicates the module name's offset. This one may be 
used for other purposes. It is a part of the PD.OPr section. 

IT.XON is the X-ON character. For the Color Computer 
terminal it is not necessary and is set to $00, but for standard 
terminal it can be something else. Usually it is $1 1 or *Q. 

1T.XOFF is the X-OFF character. For the Color Computer 
tetminal it also is not necessary and is set to SOO. but for standard 
terminals it can be something else. Usually it is $13 or A S. 

At this point Ihe standard initialization table is complete. For 
the Color Computer and other systems that use windows, more 
information may be necessary. Following this is the window 
information. lam includingColorComputer values. Atafuture 
time I will talk in more details about windows. 

Window Entries 

1T.COL is the number of columns. Usually this is 32. 40 or SO. 



IT.STY is the window type. This can be graphics and non- 
graphics. The window size and so forth. 
I...40-Column hardware screen 
2...80-column hardwaie screen 
3...640 X 192 two-color screen 
4...320 X 192 four-color screen 
5...640 X 192 four-color screen 
6...320 X 192 sixteen-color screen 

IT.CPX is the position in the X-axis. 

IT.CPY is the position in the Y-axis. 

IT.FGC is the foreground color. 

1T.BGC is the background color. 

IT.BDC is the border color. 

Ihe listing at the end of this month's column is presented as an 
illustration of what is a device descriptor is like. There is good 
news! It is not necessary to create one. A means has been 
provided to change Ihe current values of a device like the 
tetminal or the printer. 

XMODE is the easiest way to change the device descriptor, 
l-et's say you want information about the printer descriptor. 
Enter: 

OS9; xmode /p 

-upc -bsb -bsl -echo -If null=0 -pause pag=456 bsp=08 
del=l 8 eor=0D eof=00 reprints04 dup=0 1 psc=17 abort=00 
quit=00 bse=SF bell=07 typc=00 baudsOl xon=00 xoff=00 

This print out tells about the device descriptor for the printer 
or /p. Minus signs tell the function is OFF and lack of a minus 
sign means it's ON. Otherwise numbers are included for infor- 
mation. 

My printer needs line feeds and mns at a baud of 4800. So to 
change it, 1 enter: 

OS9: xmode /p If baud=5 

Ihis tells XMODE to change the baud rate of /p to 4800 and 
include line feeds with carriage returns. Simple and there is no 
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need to write a separate device descriptor. By the way, 
XMODE corrects the module's CRC so the module could be 
saved or used when generatinga new system disk. There is one 
caution. XMODE only works on the descriptor and not on the 
path. 

If apath is already open, the optionsmust be changed in the path 
descriptor. To do thisTMODE is used. If Tor example only up- 
percase characters are desired the following would work. 

OS9: tinode upc 

TMODE isshojt for Terminal MODE sinceit is used mostoften 
on terminals. They are almost always open at the start of any 
session. XMODE is used on the device descriptors and is 
usually used on items like printers. 

I will let you ponder these thoughts until next. Next time I will 
wrap this entire thought by going into the TMODE and 
XMODE program s. Also. I will present an interesting program 
called DMODE that works like XMODE, but on disk drives. 

Until next time have a good month! 

LIST1MC 



ooooi 
00002 

0000] 
00004 
00005 
00006 
00001 
00001 
0000* 
00010 
00011 
00012 
00013 
00011 
0001$ 
0001* 
00011 
00011 
0001* 
00020 
00025 
00026 
00021 
00021 
00021 
00030 
00031 
00032 
00033 
00034 
00033 
00036 
00037 
00031 
00039 



■ Nana : TEAM 

■ By i Ron volqta 

• Data: ll-VI-ll 

* To co*pllai aa« torn. a ow/dO/crada/taroi 1 120k 



oon 
0012 



Varalon 1.00 Original AOu 



Function: 

Thla la davlca doacrlptor T£AK. 



uii /d0/dara/daf«f 11a 



1CP1 

■ ndc 



crort aqu irFAO 



TTPt a*t D«vlc*Ob]ct 

ftZVS aat nacnt*2 



0000 11CD0045 



•otf DDtnd. DDhlAava.TYrE, RXV1. D0H4 r, OODrv 



- Daacrlptor haaaar 

0000 03 rc» tOOOOOOll Davlca capaDUKia, 

oooi 01 fcb 107 Xatandad Ulrm 

OOOr PTA0 f<u> crort Dial centcoltc Fort 

0011 1A fcb OOpt*nd..-l 



FOR THOSE WH 



00040 




■ Initialization tabl* 






00041 


0012 


00 


1T.DVC 


rcb 


• 00 


*C2* lypa davlca 


00042 


0013 


00 


IT. UPC 


fob 


too 


uppar and lovar cut 


00043 


0014 


00 


iT.aso 


fcb 


too 


bacaipaca 


00044 


001$ 


01 


1T.DLO 


tcb 


101 


carrlafla ralurn 


0004S 


0016 


01 


1T.CXO 


fob 


101 


actio on 


00046 


0017 


01 


IT. ALT 


fcb 


101 


auto Una faad on 


00041 


0011 


00 


IT. NHL 


fcb 


100 


and-ot-llno null count 


00041 


001* 


00 


1T.PAV 


fcb 


• 00 


pauia off 


00049 


00IA 


L* 


IT. PAS 


fcb 


111 


linaa par paoa 


00030 


001B 


06 


IT.89P 


fcb 


101 


bacjeapaca charactar 


00031 


001C 


II 


IT. OIL 


tcb 


III 


dalata Una charactar 


00032 


0010 


00 


it. em 


fcb 


loo 


and-of-racord charactar 


00053 


001 E 


IB 


IT. COP 


fcb 


MB 


and-of-r 11a charactar 


00034 


001P 


04 


IT. ATA 


tcb 


104 


raprlnt-llna charactar 


00054 


0020 01 IT 


our fcb 


• 01 


dupllcata-laat*llna charactar 


00036 


0021 


11 


1T.P1C 


fcb 


ill 


pauaa charactar 


00031 


0022 


03 


IT. [MT 


fcb 


103 


Intarrupt charactar 


00056 


0023 


05 


IT. OUT 


fcb 


105 


quit charactar 


0003* 


0024 


04 


1T.B5C 


fcb 


IOI 


bachapaca tche character 


00060 


0025 


07 


IT.OVP 


fcb 


107 


llna-ovar flov charactar 


00061 


0026 


• 


1T.PAA 


fcb 


SI0 


Initialisation valua 


00062 


0021 


00 


IT BAU 


fcb 


100 


Baud rata 


000(3 


00210036 1T.D2F fdb (0036 Attactiad davlca kim ot 1 aa< 


00064 


0O2A 


00 


IT W» 


fcb 


100 


X-ON charactar 


0006$ 


002S 


00 


iT.aorr 


fcb 


too 


X-OTF charactar 


O0066 


002C 




OOptlnd 


aqu 


• 




00067 














00066 


002C 


21 


IT. COL 


fcb 


121 


nuaibar of colunua 


00069 


0020 


It 


IT. ACM 


fcb 


111 


nuobwr of rovi 


00010 


002*. 


00 


1T.WKO 


fcb 


too 




00011 


002f 


01 


1T.VAL 


tcb 


toi 


raat of data valid 


00012 


0030 


01 


1T.3TT 


tcb 


tol 


vindov typa 


00013 


0031 


00 


IT.CPX 


fcb 


100 


x poaltlon 


00014 


0032 


00 


1T.CPT 


fcb 


too 


Y poaltlon 


0001$ 


0033 


02 


1T.PCC 


tcb 


102 


foraqround color 


00016 


0034 


03 


1T.KCC 


fcb 


103 


bacaqround color 


00077 


0033 


03 


IT HOC 


tcb 


103 


bordar color 


0007* 














0007* 


0036 


54631210 


OOHaaw 


tea 


ITTMI 


Davlca mat 


00060 


003A 


5349C6 


001*) i 


tea 


/scr/ 


Davlca managar 


00061 


003D 


4343334* 


ooorv 


tea 


/CC3IO/ 


Davlca drlvar 


00012 














00013 


0042 


211110 




■ Kl 






00014 


0041 




DDtnd 


aqu 


• 




0006$ 








and 







00000 •rror.jr 

ooooo w«rnlnf(s) 

9004b 00069 pro*?!*** oyC»» qinvrilvd 

S0000 00000 dju byt«n *lloc«t«d 



%2 



Sit 09507 toytvi lifted (or jyaboli 




68 MICRO 



JOURNAL 



TM 



September ' 



66 Micro Journal 




The C Programmers 

Reference Source. 

Always Right On larget! 

User Notes 



A Tutorial Series 



By: Dr. E. M. 'Bud' Pass 
1454 Latta Lane N.W. 
Conyers, GA 30207 
404 483-1717/4570 

Computer Systems Consultants 



INTRODUCTION 

This chapter continues the discussion of dbug, a C debugging package. It is a useful tool for 
debugging and testing C programs. It was developed by Fred Fish, who placed It Into the public 
domain. The C code for the dbug package and for extensions to It appear in the previous, this, and in 
subsequent chapters. 



DBUG.C (continued) 



*l 



db pargs 



log arguments for subsequent use by _db_doprnt_<) 



VOID _db_pargs_ (_line_, keyword) 
int _line_; 
char "keyword; 

The new universal printing macro DBUG_PRINT, which replaces 
all forms of the DBUG_N macros, needs two calls to runtime 
support routines. The first, this function, remembers arguments 
that are used by the subsequent call to _db_doprnt_ () . 



VOID _db pargs (_line_, keyword) 
int line ; 
char 'keyword; 
< 

u line » line,' 

u keyword - keyword; 



/* 



_db_doprnt_ 



handle print of debug lines 



VOID _db_doprnt_ (format, ARGLIST) 
char "format; 
long ARGLIST; 

When invoked via one of the DBUG macros, tests the current keyword 
set by calling _db_pargs_() to see if that macro has been selected 
for processing via the debugger control string, and if so, handles 
printing of the arguments via the format string. The line number 
of the DBUG macro in the source is found in u_line. 

Note that the format string SHOULD NOT include a terminating 
newline, this is supplied automatically. 

This runtime support routine replaces the older _db_print f () 
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s 



- 





1 LI it Pane parse list of modifiers In debug control strlnq 


' routine which Is temporarily kept around (or compatibility. 






• LOCAL struct link -LlstParse (ctlp) 


* The rather ugly argument declaration li to handle some 


• char "cclp; 


* magic with respect to the number of arguments passed 




* via the DBUC macros. The current maximum Is 3 arguments 


■ Given pointer to a comma separated list of strings In "clcp", 


' (not Including the keyword and format strings) . 


1 parses the list, building a list and returning a pointer to It. 




1 The original comma separated list is destroyed In the process of 


' The new <varargs.h> facility Is not yet common enough to 


1 building the linked list, thus It had better be a duplicate 


• convert Co It quite yet... 


• If it Is important. 


1 Note that since each (Ink is added at the head of the list. 


/•VARARJGS1'/ 


■ Che final list will be In "reverse order*, which is not 


VOID _db_dopmt_ (format, ARCLISTI 


■ significant for our usage here. 


char 'format; 




long ARGLIST; 
I 

If (_dbJceyword_ (ujceyword) 1 U 


'/ 


>CAL struct link 'LlstParse (ctlp) 


\ char *ctlp; 


DoPreflx (u line] ; 1 




If (TRACING) 


REGISTER char ' start; 


Indent (stack ->level ♦ 1) ; 


REGISTER struct Link ' head; 


else 


REGISTER struct link • new; 


(VOID) I print f (_db_fp_, Ms: *, fund; 




(VOID) fprlntf C_db_ip_, "is: -, u keyword); 


head - HULL; 


(VOID) fprlntf <jlb~fp~. format, AfiaLlSTI; 


while ("ctlp !- EOS) 


(VOID) fprlntf (_db_fp_, "\n-); 


1 


(VOID) ftlush (_db_fp_~; 


stare - ctlp; 


(VOID) Delay (stack ->delay) ; 


while ('ctlp i- EOS it 'ctlp I- ',') 


t 


ctlptt; 


} 


If Cctlp — •,') 




■ctlp+» - EOs; 




new - (struct link •) DbugMalloc (slzeof (struct link )); 


/• 


new ->string - StrOup (start); 


• The following routine Is kept around for compatibility 


new ->next_llnk - head; 


• with older objects chat were complied wlch the DBOG_N macro form 


head - new; 


of the print routine. It will print a warning message on first 


1 


* usage. It will go away In subsequent releases... 

•/ 1 


return (head) ; 


/-VARARGS3'/ 




VOID _db_prlntf_ (_llne_, keyword, format, ARGLIST) 




int _llne_; /' 




char 'keyword, 'format; • 


InLlst test a given string for member of a given list 


long ARGLIST; • 




I ' 


LOCAL BOOLEAN InLlst (llnkp, cp) 


static BOOLEAN flrsttlme - TRUE; • 


struct link 'llnkp; 




char *cp; 


If (flrsttlme) < 




I ' 


Tests the string pointed to by "cp" to determine if it la in 


(VOID) fprlntf (stderr, ERR_FRINTF, _db_proees-_. file); < 


the list pointed to by "llnkp*. Llnkp points to the first 


flrsttlme - FALSE; < 


link In the list. If llnkp Is NULL then the string is treated 


) 


as If it Is In the Hat (I.E all strings are In the null list). 


_db_parg«_ (_llne_, keyword); ' 


This asy seem rather strange at first but leads to the desired 


db doprnt ( format , ARGLIST); < 


operation If no list Is given. The net effect is that all 
strings will be accepted when there Is no list, and when there 
Is a list, only those strings In the list will be accepted. 
/ 


} < 




/• LOCAL BOOLEAN InLlSt (llnkp, cp) 






struct link 'llnkp; 

char 'cp; 

( 

REGISTER struct link • scan; 

REGISTER BOOLEAN accept; 

If (llnkp ~ JULLI 

accept - TRUE; 
else J 

accept - FALSE; 

for (scan - llnkp; scan I- NULL; scan - scan ->next link) 



( 



If (STREO (scan ->etrlng, cp) > 
( 

accept • TRUE; 

break; 



return (accept); 



?ushstate push current state onto stack and set up new one 

LOCAL VOID PushState I) 

Pushes the current state on the state stack, and Initializes 
a new state. The only parameter Inherited from the previous 
state Is the function nesting level. This action can be 
Inhibited if desired, via the •«" flag. 

The state stack ie a linked list of states, with the new 
state added at the head. This allows the stack to grow 
to the limits of ewesory If necessary. 



LOCAL VOID PushState () 
( 

REGISTER struct state * new; 

new - (struct state •> DbugMelloc (slzeof (struct state )); 

new oflags - 0; 

new odelay - 0; 

new ->aaxdepth - MAXOEPTH; 

U (stack I- HULL) 

new ->level • stack -> level; 
else 

new -> level - 0; 
new oout file - stderr; 
new -> functions - NULL; 
new ->p_functlons - NULL; 
new okeywords - MULL; 
new ->procea*c» • NULL; 
new ->neit_state - stack; 
stack - new; 
inlt done - true; 



OoTrace check to see if tracing is enabled 

LOCAL BOOLEAN DoTrace () 

checks to see If tracing is enabled based on whether the 
user has specified tracing, the naximvw trace depth has 
not yet been reached, the current function is selected, 
and the current process is selected. Returns TRUE If 
tracing Is enabled, FALSE otherwise. 



LOCAL BOOLEAN DoTrace () 

[ 

REGISTER BOOLEAN trace; 

trace - FALSE; 
If (TRACING) 

If (stack ->level <- stack ->naxdepth) 

If (InLlst (stack ->f unctions, fund) 

If (InLlst (stack -^processes, _db process )) 
trace - TRUE; 
return (trace) ; 



• DoProflle check to see If profiling Is current enabled 
i 

• LOCAL BOOLEAN DoProflle 
a 

• Checks to see If profiling Is enabled based on whether the 

• user has specified profiling, the maxima trace depth has 

• not yet been reached, the current function Is selected, 

• and the current process Is selected. Returns TRUE If 

• profiling Is enabled, FALSE otherwise. 



LOCAL BOOLEAN DoProflle 
I 

REGISTER BOOLEAN profile; 

profile - FALSE, - 
lf (PROFILING) 

If (stack ->level <- stack ->ntaxdepth) 

if (InLlst (stack ->p_functlons, func) ) 

If (InLlst (stack ->processes, _db_proeess_) ) 
profile - TRUE; 
return (profile); 






db keyword 



test keyword for 



r of keyword list 



-* - 








to 


• BOOLEAW _db_keyword_ I keyword) 


out far (count 1 - ' '; 






1 char -keyword: 


buf (er( count 1 - EOS; 

(VOID) (prlntf (_db_ip_, buffer); 






1 Test * keyword Co determine 11 1c Is In the currently active 


(VOID) (flush ( db fp ) ; 






1 keyword lilt. As with the (unction Hat, a keyword Is accepted 


i 






' lr the list la null, otherwlae It »ust match one of the list 








* aeabers. Hlien debugging is not on, no keywords are accepted. 








' After the naxlaua trace level Is exceeded, no keywords are 








* accepted (thla behavior subject to change) . Additionally, 


/ 








1 the current function and process Bust be accepted based on 




1 FreeLlst free all aauiT associated with a linked list 






► their respective lists. 




• LOCAL VOID FreeLlst (llnkp) 






• Returns TRUE If keyword accepted, FALSE otherwise. 




1 struct link * llnkp; 








■ Given pointer to the head of a linked list, frees all 




tx 


JOLEAH _db_keyword_ (keyword) 




> aaaory held by the list and the sesteri of the list. 




1 


iar 'keyword; 


•i 




I 


REGISTER BOOLEAN accept ; 


LOCAL VOID Free LI at (llnkp) 
struct link "llnkp; 






If (llnlt_done) 


( 






_db_puah_ I"*); 


REGISTER struct link • old; 






accept - FALSE; 








If (DEBUCCINGI 


while (llnkp !- NULL) 






If (stack ->level <- stack ->aaedepth) 


I 






If (InLlst (stack ->functlons, fund) 


old - llnkp; 






If (InLlst (atack ->keywords, keyword)) 


llnkp - llnkp ~>next_llnk; 




Jf 


If (InLlst (stack ->processes, _db_proces*_l I 


If (old ->strlng !- NULL) 




s 


accept - TRUE; 


free (old ->strlng); 






return (accept ) ; 


free ((char •) old); 
1 
1 




Indent Indent a line to the given Indentation level 


/' 












> StrDup nake a duplicate of a string In new aaaory 






' LOCAL VOID Indent (Indent) 










' lnt Indent; 




> LOCAL char 'Stroup (string) 

> char 'string; 






Indent a line to the given level. Mote that this la 










a slnple alnded but portable Implementation. 




> Given pointer to a string, allocates sufficient aaaory to 


aake 




There are better waya. 




• a duplicate copy, and copies the string to the newly allocated 








> aaaory. Failure to allocated sufficient aeaory Is fatal. 






Also, the Indent Bust be scaled by the coeplle tine option 




/ 






of character positions per nesting level. 
/ 








LOCAL char 'StrDup (atrlng) 




u 


ICAL VOID Indent (Indent) 


char 'string; 




lr 
t 


t Indent; 

REGISTER lnt count; 


1 

REGISTER char • new; 






AVTO char buffer [FBIHTSUFl; 


new - DbugHalloc (atrlen (string) ♦ 1) ; 
(VOID) strcpy (new, string); 




s 


Indent •- INDENT; 


return (new) ; 




£ 


for (count - 0; 


1 




f 


(count < (Indent - INDENT)) tt (count < (P8IHTBDF - 1)); count") 






a 


If ((count t INDENT) — 0) 






fr 


buffer (count 1 - M ' ; 






1 

m. 


else 


/•• 





s 



! 



DoPreflx print debugger line prefix prior to Indentation 

LCX3U VOID DoPreflx (_llne_) 
lnt _llne_; 

Print prefix coemon to all debugger output lines, prior to 
doing Indentation If necessary. Print such Information as 
current process name* current source file name and line number, 
and current function nesting depth. 



LOCAL VOID DoPrefl* (_llne_) 

lnt _llne_; 

I 

llneno+t; 

lf (stack ->flags I MWBERON) 

(VOID) fprlntf (_db_fp~, M5d: ". llneno); 
lf (stack ->flags t PROCESS_ON> 

(VOID) fprlntf (_db_fp_, "*s: ", _db_process_) ; 
If (stack ->flags ( FILE_ON) 

(VOID) fprintf (jib fp_, "%Us: -, file); 
If (stack -> flags ( LINE_ON) 

(VOID) fprlntf (_db_fp _, "*5d: -, line); 
If (stack -> flags t DEPTK_ONl 

(VOID) fprlntf (_db_fp_, -%«d: ", stack -> level), 
(VOID) (flush (_db_fpj: 
I 



OpenFlle open new output stream for debugger output 

LOCAL VOID OpenFlle (name) 
char *na«<e; 

Clven name of a new file (or *-* for stdout) opens the file 
and sets the output stream to the new file. 



LOCAL VOID OpenFlle (name) 

char "name; 

I 

REGISTER FILE • fp; 

REGISTER BOOLEAN newflle; 

if (name !- NOLL) 
( 

If (strenp (name, "-") -- 0] 
( 

_db_fp_ - stdout; 
stack ->out^flle - _db_fp_; 
I 
else ( 

If (IWri table (nans) > 
I 

(VOID) fprlntf (_db_fp_, ERR OPEN, _drj_proc*ss_ r naoe); 

perror (">: 

(VOID) f flush ( db fp I; 



(VOID) Delay (stack -?delay); 
I 
else I 

If (EXISTS (name)) 

newflle • FALSE; 
else 

newflle - TRUE; 
fp - fopen (name, "a"); 
If (fp -- MULL) 



( 



I 



(VOID) fprintf (_db_fp_, ERR_OPEN, _db_process_, name)) 
perror (") ; 

(VOID) f flush (_db_fp_> ; 
(VOID) Delay (stack ->delay>; 



else ( 

_db_fp - fp; 

stack ->out_flle - fp; 

If (newflle) 

ChangeOwner (name); 
I 



OpenProfila 



open new output stream for profiler output 



LOCAL VOID OpenProflle (name) 
char *n ie; 

Given name of a new file, opens the file 

and sets the profiler output stream to the new file. 



LOCAL VOID OpenProflle (name) 
char 'name; 

I 

REGISTER BOOLEAN newflle; 
REGISTER FILE • fp; 



If (name 



NULL) 



If ^writable (name)) 
I 

(VOID) fprlntf (_db_fp_, ERROPEN, db process, 

perror ("); 

(VOID) f flush (_db_fp_); 

(VOID) Delay (stack ->delay) ; 
I 
else ( 

If (EXISTS (name)) 
newflle - FALSE; 

else 

newflle - TRUE; 

fp - fopen (name, ~w*l ; 

If (fp — NULL) 



t 



s 

i 
i 



1 


(VOID) Delay (stack ->delay>; 


(VOID) rprincf (_db_rp_. ERROPEN. _db_process_, name) ; 


exit (11; 


perror <"); 


! 


(VOID) f flush l_db fp_); 




(VOID) Delay (stack ->del*y) > 
) 
«lse 1 




/• 


_db_J>fp_ - fp; 


• DbugHslloc allocate memory for debugger runtime support 


stack ->prof_rile - fp; 


• 


lf (nawfiie) 


• LOCAL char •DbugKalloc Islie) 


ChangeOwner (nana) ; 
i 


* lnt site; 


1 


• Allocate acre memory for debugger runt law support functions. 


1 


• Failure to to allocate the requested number of bytes is 


1 


* immediately fatal to the current process. This may be 




* rather unfriendly behavior. It might be batter to simply 




• print a warning message, freeze the current debugger state. 


/* 


■ and continue execution. 




• ClosaFlla closa tha dabug output stream 






LOCAL char "DbugHalloc (size) 




• local VOID CloseFlla Ifp) 


lnt sire; 




» FILE -fp; 


1 

register char "new; 




■ Closes tha dabug output stream unless It is standard output 






1 or standard error. 


new - malloc ((unsigned lnt) site); 




'/ 


if (new — HULL) 




DbugExlt ("out of memory*); 


LOCAL VOID CloseFlla (fp) 


return (new); 


FILE «fp; 

f 


1 


\ 

if (fp !- itderr £* fp !- icbout) 




if (f close (fp) — EOF) 


• This function may be eliminated when strtok Is available 


(VOID) fprlntf (stdarr, ERR_CLOSE, _dt>_pro<:eiiS_j; 


parror (--); 


• In the runtime environment (missing from 6SD«.1>. 


(VOID) f flush (stdarr) ; 


•/ 


(VOID) Delay (stack ->dalay) ; 




1 


LOCAL char 'strtok (si/ s2) 


1 


char *sl, •sl> 

( 

static ch r 'end - HULL; 




J * 


REGISTER char • rtnval; 




> ObugExlt print error awssage and exit 


rtnval - MOLL; 
If (S2 !- HULL) 




• LOCAL VOID DbugEalt (why) 


{ 




char *«hy; 


If (si !- HULL) 

1 




> Prints error message using current process name, the reason for 


1 

end - si; 




' aborting (typically out of memory | , and exits with status 1. 


rtnval - strtok ((char •) HDLL, s~); 




This should probably be changed to use a status code 


1 




1 defined In the user's debugger Include file. 


else If (end !- NULL) 

r 




If ("end !- COS) 


LOCAL VOID DbuQE It (why) 


( 


char 'why; 


rtnval - end; 


( 


while ("end !- *s2 if 'end !- EOS) 


(VOID) fprlntf (stocrr, ERR ABOAT, db_proce»s , why); 


end**; 


(VOID) f flush (stdarr) ; 


If fend !- EOS) 



s 



i 



■*nd*» » EOS; 



return (rtnval); 



BjseNjfM 



strip leading pathname components from name 



LOCAL char 'BaseName (pathname) 
char 'pathname; 

Given pointer to a complete pathname, locates the base file 
name at the end of the pathnane and returns a pointer to It. 



LOCAL char 'BaseNaoe (pathname) 

char 'pathname; 

1 

register char *base; 

bass - strrchr (pathname, V), 
If (base" — NULL) 

base - pathname; 
return (base) ; 



Writable 



test to see If a pathname Is writable/creatable 



01 



LOCAL BOOLEAN Writable (pathname) 
char 'pathname; 

Because the debugger might be linked In with a program that 
runs with the set-uld-bit (suld) set, we have to be careful 
about opening a user named file for debug output. This consists 
of checking the file for write access with the real user Id, 
or checking the directory where the file will be created. 

Returns TRUE If the user would normally be allowed write or 
create access to the named file. Returns FALSE otherwise. 



LOCAL BOOLEAN Writable (pathname) 

char 'pathname; 

( 

REGISTER BOOLEAN granted; 
llfdef unlx 

REGISTER char * lastslash; 
lend If 

llfndef unlx 

granted - TRUE; 
• else 

granted - FALSE; 



If (ExlsTS (pathname)) 
I 

If (WRITABLE (pathname}) 
granted - TRUE; 

I 

■ lie 

I 

lastslash » strrchr (pathname, '/'); 
If (lastslash !- NULL) 

•lastslash - EOS; 
else 

pathname - ".*? 
If (WRITABLE (pathname}) 

granted - TRUE; 
If (lastslash !- NULL) 

'lastslash - '/'; 



•endi £ 

return (granted) : 
I 



This function may be eliminated when strrchr Is available 
In the runtime environment (missing front BSD4.1). 
Alternately, you can use rindexU on BSD systens. 



LOCAL char 'strrchr (s, c) 
char "s; 
char c; 
( 

REGISTER char * scan; 

for (scan - s; 'scan 1- EOS; scan+t); 
while, (scan > s (( '-scan t- c); 
lf ('Scan !- c) 

scan - HULL; 
return (scan); 



ChangeOwner change owner to real user for suld programs 

LOCAL VOID ChangeOwner (pathname) 

For unlx systems, change the owner of the newly created debug 
file to the real owner. This Is strictly for the benefit of 
programs that are running with the set -user-Id bit set. 

Note that at this point, the fact that pathname represents 
a newly created file has already been established. If the 
program that the debugger Is linked to is not running with 
the suld bit set, then this operation Is redundant (but harmleaa). 



LOCAL VOID ChangeOwner (pathname) 



char -pathname; 

I 

• lfdaf unlx 

If (ctiown (pathname, getuld , getgld (1) II 

I 

(VOID) fprlntr (stderr. EHR_CHOKM, _db_process_, pathname); 
perror (""): 
(VOID) ffluih (stderr) ,- 
(VOID) Delay (atack ode-lay); 
1 
•andlf 
1 









_db_**t)ap_ aava dabuggar environment 

VOID _db_eetjmp_ () 

Invokad aa part of tha user's D8UG_SKTJMP aaeco to save 
the dabuggar environment In parallel with aavlng tha uiar'i 
environment. 



VOID _db_setjaP_ () 
I 

Jmplevel - atack ->laval; 

jmpfune - tunc: 

jnpflla - file; 
I 



_db_lot»9)mp_ raatora pravlouily saved debugger environment 

VOID _db_long)mp_ () 

Invokad aa part of tha uiar'i DBOG^LOMGJM? Macro to raatora 
tha dabuggar environment In parallel »lth raatorlng tha uaar'* 
previously aavad anvlronaant. 



VOID _db_longJmp_ () 

) 

(tack ->laval - jmplevel; 
If (japfunc) 

func - japfunc: 
If (Jmpfllel 

flla - lapfllo; 



s 



DalayArg convert D flag argument to appropriate value 

LOCAL lnt DalayArg (value) 

lnt value; 



•/ 



Convert* delay argument, given In tentha of a aacond, to the 
appropriate numerical argument used by tha system to delay 
that that many tenth* of a second. Tor example, on the 
AMCA, there Is a system call 'Delay ()" which takaa an 
argument In ticks (So per second). On unlx. tha aleep 
command takaa aaconds. Thus a value of "10". for one 
second of delay, geta converted to SO on the aalga, and 1 
on unlx. Other systems will need to uaa a timing loop. 



LOCAL lnt DalayArg (value) 

lnt value; 

t 

lnt delayarg • 0; 



Hfdef unlx 

delayarg - value / 10; 
•endlf 
tlfdof AMIGA 

delayarg - (HI • value) / 10; 
•endlf 

return (delayarg) ; 
I 



/* Delay la In seconds for alaep '/ 



/• Delay In ticks for Dally <l •/ 



A dummy delay stub (or systems that do not support delays. 
Hlth a little work, this can be turned Into a timing loop. 



tlfndaf unlx 

tlfndef AMIGA 

Delay () 

I 

I 

tandlf 

•endlf 



perror perror alaulatlon for systems that don't hsva It 

LOCAL VOID perror (a) 
char *s; 



* 
«/ 



Perror produces a message on the standard error stress which 
provides more Information about tha library or system error 
just encountered. Tha argument string a la printed, followed 
by a ':', a blank, and then a message and a nevllne. 

An undocumented feature of the unlx perror la that If tha string 
*s' Is a null string (NOT a NULL pointer!), then Che ':' and 
blank are not printed. 



•If iunlx tt I (AMIGA t& LATTICE) 
LOCAL VOID perror (s) 
char •»; 






s 






If (* C( <s !- EOS) 

(VOID) fprlntf (stderr, *ts: -, a); 

(VOID) fprlntf (stderr, ~<unknown systen error>\n"l ; 
) 
•andlf /• lunlx it ! (AMIGA 44 LATTICE) •/ 

/• 

* Hare we need the definition* of the clock routine. Add your 

* own for whatever systen that you have. 
*/ 

lit unlx 

•Include esys/psran.h> 
II f BS01_3 I I «un 

/• 

* Definition of the Clock!) routine for 4.3 BSC. 



•include <sys/tlae.h> 
•Include <sys/ resource. h> 



Return* the uier tine In Billiseconds used by this process so far. 



LOCAL unsigned long Clock () 
I 

struct rusage cm; 

(VOID) getrusage (RUSAGE_SELF. *ru|; 

return ((ru.ru utlme.tv sec * 1000) ♦ (ru.ru utlme.tv usee / 1000)1: 



false 

LOCAL unsigned long Clock <) 
( 

return (0) ; 



long ds Tick; 



I: 



static lnt first clock . TRUE; 
static struct DateStanp begin; 
static struct DateStanp alspsed; 

LOCAL unsigned long Clock I) 
I 

extern VOID 'AllocHen (); 

register struct DateStanp *nov; 

register unsigned long nllllsec - 0; 

now - (struct DateStanp *) AllocHen ((long) slteof (struct OateStanp I, OLI j 

I f (now !- NULL) 

I 

If [flrst_clock •- TRUE) 
I 

flrst_clock - FALSE; 
(VOID) OateStanp (now); 
begin • 'now; 

(VOID) DateStanp (now); 

nllllsec - 24 • 3600 • (1000 / HI) • (now ->ds_Days - begin. dsOaysi ,- 

nllllsec ♦• 60 • (1000 / HI) • (now ->ds_Mlnute - begin. ds_Mlnute); 

nllllsec ♦- (1000 / HZ) • (now ->ds_Tlek~- begin. dsjrlek) ;~ 

(VOID) FreeNen (now, (long) slteof Tstruct DateStanp )); 

I 

return (nllllsec); 



tendlf /* AMIGA •/ 
lendlf /• unlx •/ 



The node for the extensions to the dbug package Is contained In the next chapter. 



tendlf 
setae 
(If AMIGA 



struct OateStanp 

I 

long ds_Days; 
long ds Minute; 



/• Yes, this Is a hack, but doing It right •/ 
/• Is Incredibly ugly without splitting this •/ 
/• off Into a separate file •/ 
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This is a long overdue icvicw 
of ihc PLuS compiler from Win- 
diush Micro Systems in England. 
PLuS runs under OS9 and uses OS9 
system calls extensively. Let me 
back up and explain that 1 am 
talking about the PLuS compiler. 
The code generated by the compiler 
may be written to run under OS9 or 
it may be generated to run in other 
systems or in stand-alone haidwaie. 
One of the beauties of PLuS is lhat 
the user can define 10 for himself 
and therefore make the object code 
runnablc in any environment. 

At Ihc risk of repeating myself 
a little, I'd like to spend a few 
paragraphs giving you a little 
history of PLuS. Several years ago 
when ihc 6809 systems running 
FLEX wcic so very popular among 
ihc people who knew about them (a 
small but dedicated group) the PL9 
compiler arrived on the scene. I, 
and the company for which 1 work, 
began to use PL9 exclusively for 
our stand alone machine control 
and instrumentation software. 1 
have been using PL9 virtually 
every day for the past live years or 
more. Because of that, it is going to 
be difficult to write a comprehen- 
sive icvicw, but I'll try not to leave 
too much out. 



PLuS is a derivative of PL9, 
the 9 in the name of which stood 
for 6809. Obviously that wouldn't 
do for a 68008, 68000, 68010, 
68020 compiler. PLuS is not 
claimed to mean anything in 
particular, but PL in the more 
standard mainframe language 
stands for Programming Language. 
The lower case u obviously is to 
represent the greek letter Mu which 
is commonly used as an abbrevia- 
tion for "micro". We would not be 
far off if we said that PLuS means 
"Programming Language for 
Microcomputer Systems". 

PLuS is obviously not a 
"standard" language. It is more or 
less a cioss between Pascal and 
"C". or it could be thought of as a 
Pascal with some of the rules 
"relaxed" a little. Both Pascal and 
"C" have some unique syntaxes 
that arc just line for anyone who 
programs in one of them only. If 
you switch back and foith as 1 
sometimes do, there aic a few 
things that are annoying. For 
example Pascal distinguishes 
between an assignment statement 
and an equality test by using":=" 
for an assignment statement: 

a:=b+3; is an assignment statement that 
assigns the value of b*3 to a. 

a=b is the equality test. 

An equality test might be pan 
of an if-then statement. All ambi- 



guity is removed by the difference 
in syntax. Similarly in "C" the 
distinction is made, ihough the 
diffcicncc is in the comparison and 
not the assignment: 

a=b+3; is the "C" assignment statement. 
(a=b) is the "C" comparison. 

In my uniraincd and not- 
worth-a-grcat-dcal opinion, the 
distinction is made clear otherwise. 
In the Pascal case, the comparison 
is always preceded by "if" or 
"while" or "until" which clearly 
indicate lhat what follows is a 
comparison. In ihc "C" case, 
comparisons arc always parenthe- 
sized, though "C" has the additional 
perversity (in my opinion) of 
deliberately misinterpreting a 
comparison if you leave out the 
double equal sign. "if(a=b)..." is 
interpreted to mean lhat Ihc pro- 
grammer wants to set the value of a 
equal to the value of b (an assign- 
ment statement) and since the ex- 
pression is clearly a comparison 
test requiring the return of TRUE or 
FALSE, it returns TRUE if a is not 
equal to zero and FALSE if other- 
wise! In "C" the not equal to zero 
part of a comparison is undcistood 
if not explicitly encoded if(a) is a 
valid comparison test that returns 
TRUE if a <> 0. PLuS handles ihc 
difference between assignments 
and comparisons the same as BA- 
SIC. It doesn't distinguish other 
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than by context. a=b is the assign- 
ment statement, and if a=b or 
while a=b or until a=b is the 
comparison. PLuS also takes a 
few of the best "shorthand" 
notations from "C". For example, 
if a then ... is a valid test meaning 
ifaoOlhcn... Loop counters 
are frequently incicmcntcd or 
dccicmcntcd in programs. One 
gels tired of endlessly entering 
"pagc_count = pagc_count+ 1 ;" 
PLuS has added the increment 
notation of "C" so that you simply 
enter "pagc_count++;" Decre- 
menting is done with " — ". If the 
item being incremented or dccic- 
mcntcd happens to be a pointer 
into an array. PLuS knows the type 
of the array and increments by 1, 
2, or 4 bytes. 

The very latest vcisions of 
PLuS have implemented the 
counted loop, the for-ncxt con- 
struct. Early vcisions and PL9 
only had the While- and the 
Rcpcat-until loops in which a 
counter variable had to be set up. 
The latest version has all of these. 

PLuS has several data types. 
Byte, Integer and Long aic signed 
integers of length 1,2, and 4 bytes 
icspcctivcly, their unsigned 
counterparts arc called Char, 
Word, and Address respectively or 
alternately Ubyte. Uintcgcr, and 
Wong if you prefer those designa- 
tions. The last data type is Real, 
which is a four byte type that uses 
thiec bytes for the value or man- 
tissa and one byte for the sign and 
exponent information. This real 
arithmetic has 6+ digit resolution. 
PLuS does a great deal of auto- 
matic type conversion if types of 
variables aic mixed in an cxpics- 
sion. CH = CH +32 is a valid 
statement though it would never 
pass through a Pascal piogiam 
since a character would be a type 
CHAR and a number would be an 



integer. Pascal would require CH 
:= CHR(ORD(CH)+32). That is. 
CH refers to the literal character. 
It had to be convened to the 
numeric representation of its 
ASCII value, the integer added, 
and the result convened back to a 
CHAR type. Though this process 
simply is a check by the compiler 
that the programmer knows what 
he is doing and it adds no code, it 
sometimes involves a lot of extra 
typing (and sometimes saves the 
programmer from a dumb error as 
well). The lack of strong typing in 
PL9 is a mixed blessing. 

PLus doesn't get in the way 
when you want to add a constant 
to a character but it does have 
some automatic type conversions 
that can cause problems. When 
you have an assignment statement 
or a comparison PLuS converts 
everything in the expression to the 
type of the variable to which the 
result is to be assigned, and then 
does the calculation. That usually 
produces the desired result and 
there arc ways to force the calcula- 
tion to proceed differently. How- 
ever we have been tripped up more 
than once by a similar conversion 
in a comparison. Suppose we have 
an integer N defined. IF 
N* ANGLE > PI will not work 
properly. N is an integer and 
ANGLE is therefore converted to 
one. Particularly if ANGLE is in 
RADIANS, this will be not what 
was wanted. The programmer has 
to be careful to put the REAL 
variable first. The comparison 
should be IF ANGLE*N > PI. 
The problem is more subtle if the 
comparison took the fonn IF 
6<ANGLE. 

The automatic type conver- 
sion also takes place when para- 
meters aic passed to a procedure. 
Sometimes this can be quite an 
advantage. For example, suppose 



you want to know whether the 
value of a variable is odd or even. 

procedure odd (long number) ; 
if number and 1 then return 
true; 
endproc; 

That simple procedure will 
work for bytes, integers or longs, 
since all would be automatically 
converted when the procedure is 
called. Note that in PLuS the 
operator "and" is a bitwise func- 
tion whereas ".and" is the logical 
function. 

One of the main advantages 
of PLuS is that it compiles code 
very rapidly and quite efficiently. 
It is a single pass compiler and 
PLuS compiles the code in mem- 
ory and then writes it to an output 
file. Since most or all of the 
68008 and 68000 systems have 
768K of memory minimum, this is 
not a limitation. Single pass com- 
pilers work by generating nulls 
when a forward jump or reference 
is found, and resolving that jump 
as soon as the forward referenced 
label is found. That is, ihc com- 
piler goes back and writes over the 
nulls as soon as it has the correct 
address infonnation. 

1 don't have extensive infor- 
mation about compile times of 
large programs but I do have one 
point of reference. 1 translated my 
text editor PAT into PLuS source 
code. The souicc is just over 65K 
of text, and the object code is over 
23K. PLuS compiles that on the 
68008 system in about 30 seconds 
flat. I just had occasion to list the 
source to that, and it lists to S3 
pages. That is about two pages per 
second. 

PLuS has the facility of easily 
writing assembler code procedures 
or simply embedding a few lines 
of assembler in the middle of some 
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PLuS code. Variables can be 
placed at absolute addresses for 
such purposes as access to I/O 
pons in stand alone hardware or 
bypassing OS9 and running a 
device port directly. Though this is 
possible while running OS9, it is 
dangerous when running in multi- 
user mode. While pointers in 
Pascal are limited in use, those in 
PLuS are more like those in "C" 
except that only one level of 
indirection is allowed (you can't 
have pointers to arrays of pointers, 
that is). PLuS pointers can be 
great timesavers. Suppose you 
have an array of a dozen printer 
control strings each K bytes long 
and identified by number. You 
want to output the 4th string of the 
array called pcontrol. 
print(.pcontrol(4*K)) will do the 
job. Array references are always 
passed as pointers rather than 
passing an entire array's contents 
to the subprocedure. The proce- 
dure print expects a pointer to a 
string and it prints fiom that 
position until it finds a null. The 
umesaver is that you can pass a 
pointer to somewhere in the 
middle of an array. 

PLuS has a very fast malh 
package, one that is hard to 
improve upon with regard to 
execution time. The language 
accepts standard mathematical 
equations and expressions. There 
is a scientific function library that 
may be included by your program 
so that you can make use of sine, 
cosine, arctangent, square root, 
etc. By comparison tests we've 
found PLuS programs run on a 12 
MHz 68008 system to run just 
about three times faster than the 
same program in PL9 on a 2 MHz 
6809 system. A 10 MHz 68000 
system runs about 40% faster than 
the 68008 system, or about five 
times faster than that 6809. A 
68020 system runs the same 



program about 50% faster than the 
68000 or about 7.S times faster 
than the 6809. 

The author of PLuS, Graham 
Trott, warned me early that though 
PL9 was written in assembler, 
PLuS was written essentially in 
itself, and that it wouldn't compile 
as efficiently. We were therefore 
pleased to find that the ineffi- 
ciency of the compiled version of 
PLuS was much more than made 
up for by the faster processor. As 
a point of reference, PAT 6809 
version compiles in PL9 in about 
75 seconds compared to the 30 
seconds for the PLuS version. 

I would be missing an impor- 
tant point if I didn't mention the 
fact that PLuS has a built-in screen 
editor. When the compiler finds 
an error in syntax it quits and you 
find yourself in edit mode with the 
cursor right at the offending line. 
If you've done something dumb 
like leaving out a semicolon or a 
closing parenthesis, you can edit 
the line instantly and go back and 
try compiling again. This saves a 
great deal of time when compiling 
a long program or one translated 
from another language. When you 
exit the compiler after making 
changes to the program source you 
are asked if you want to update the 
source file first. 

PLuS also has a debugger that 
allows you to run a program, 
stopping at any point and being 
able to examine the contents of 
variables. At compile time there 
are several options also. You can 
compile with no listing, compile 
with listing to a file, or to the 
screen. You can also have the 
compiled object code appear on 
the screen, which may be of 
interest to assembler programmers, 
and more than once has helped me 
find strange errors such as a 



forgotten close comment delimiter, 
which makes the compiler think 
the following code is just part of a 
long comment. A compile to the 
screen quickly shows that no code 
is generated where some should 
be, and the problem can be found. 

An important feature of PLuS 
and a major improvement over 
PL9 is that comments are now 
"nestable". Previously, an end 
comment delimiter was taken as an 
absolute end of comment. For that 
reason you couldn't "comment 
out" a section of the program that 
contained comments. With the 
latest version you can. I use this 
feature if I am going, for example, 
to rewrite a procedure to try to do 
it better, but I want to be able to 
resort to the old one in case the 
new idea doesn't work out prop- 
erly. I can comment out the old 
one and refer to it as I write the 
new one. 

Another important feature 
when it comes to streamlining 
programs is the fact that the 
libraries are all supplied in source 
code. Suppose, for example, you 
arc writing a program that only 
outputs information to the terminal 
and has no input from the user at 
all. You can edit iOSUBS.LIB 
and make yourself a special 
version you might call 
OUTPUT.L1B. You can remove 
over half of the original library 
code and minimize your program 
code, a feature that is particularly 
nice when you have just compiled 
a program that is three bytes too 
long to fit into 2 EPROMs. 

Plus has only two featuies 
that I have ever considered a 
limitation. One is Ihe limit of 
singly dimensioned arrays. You 
soon leam to access an array that 
ought to be doubly dimensioned, 
as for example a page of text in 
memory as 
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buffer<80*line+column). The lack is only a minor in- 
convenience. The other is a little harder to get around. 
Logical expressions are evaluated stiictly fiom left to 
right and the evaluation order may not be modified by 
parenthesizing. That is IF A .AND B .OR C evaluates 
to true if A and B arc true or if C is tiue. IF A .AND 
(B .OR Q, which would change that sense, is not a 
valid construction in PL9. It is possible to get around 
that by using IF A THEN IF B OR C THEN etc. 
Alternately you can use IF B OR C THEN FLAG = 
TRUE; IF A, AND FLAG THEN ... 

Another feature that can overcome the logical 
expression limitation is the BREAK statement. A 
WHILE or a REPEAT UNTIL loop can be exited from 
anywheie in the loop by means of an IF CONDITION 
THEN BREAK; statement Break simply causes to 
loop to terminate and execution to start at the statement 
after the end of the current loop. That statement can be 
a test to see if the loop exited normally or because of a 
break condition and the appropriate action can be 
taken. PluS lacks one other feature found in some 
higher level languages. You cannot include pre- 
compiled modules. The .LIB files are all source code. 
To offset this, we have found that the compiler is so 
fast that it beats compilers with that feature that are 
usually 4 to 7 pass compilers, by a wide margin with 
respect to compile time anyway. Clearly a pan of the 
reason for the speed is the fact that PLuS doesn't 
generate a number of intermediate code files that must 
be read and written to the disk. 



The latest version of PLuS even contains a discus- 
sion and examples of device drivers and descriptors 
written in PLuS for os9. I saw a quote recently from a 
'68' Micro Journal subscriber that summed up his 
feelings about PL9 and Windtush Micro Systems in a 
few words. "You send your money. They send the 
compiler. It works." I'll add only that PLuS and PL9 
are compilers that can be all things to all people. 1 
mean of course that if you are a beginner you can 
ignore the libraries except to leam how to use them. If 
you are more advanced you can rewrite the libraries or 
add more of your own design to suit your own pur- 
poses including the generation of code to run on other 
operating systems or stand-alone. The compiler works 
as advertized. You'll like it. 

Review by: 

Ron Anderson 



EOF 
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SOLUTIONS TO TEST TEN 

1. Only ihc mintcrm tables will be given here, so you'll have to do your own decoding. Observe lhai la has no L2. 
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2. Again only Ihe minterm tables will be given. 
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(b)The headings of the mintenn-tables being the same for each of these three tables, I'll develop only the bottom section, 
and leave the rest to you. Note that because the n-imput (3-bils) is capable of counting to 7. but is only taken lo S, the 6th and 
7th minterm of each m-block is omitted! 
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As a matter of interest, the circuit or Exercise 3d will be closed (that is. transmitting) for 205 different combinations of relays, 
while the complemented network given in the solution above will be closed for ihc remaining 307 combinations. 
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Note how transfer- con (acts can be used in the sight-hand network. All NO-contacis have a point in common with their 

corresponding NC-contact. 

Algebraically, it can be shown that the two networks are equivalent 

abc ♦ a'b'c" = (a + b')(bc + a'c') = abc + aa'c + b'.bc + a'b'c' 
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because both a.a'c' and b'.bc are equal 10O. 
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5. ABCD ABCD 

12 4 8 equalises to 15 5 4 
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Well, I guess that little lot made you stretch your mental muscles a little, but it'll do you good, as you've had it easy for quite 
a while! So let's all gather at 

Mile 13 - heading for Mile 14. 

RELAY-TREES IN 2-TERMINAL NETWORKS 

Apait from multi-teuninal networks (one input being directed to multiple outputs, or multiple inputs being directed to one 
output) relay-tree techniques can be used to design 2-teiminal networks (lhat is, a nctwoik with one input being directed to 
one output). This is done by constructing one tree from the input and another from the output, and joining the appropriate 
ends of the two networks in the middle. As an example, consider the following expression, where f 1 2 simply means the 
transmission-function from input terminal- 1 to output leiminal-2 

fl 2 = ab'c" + abc + a'bc' + a'b'c 

Step one is to construct a tree for the variables "a" and "b", and an inverse-tree for variable "c". In step two we'll connect 
together the ends of both trees in such a way that they correctly implement the transmission function f 12. Diagrams 63a and 
63b show the two stages in designing the desired network. 
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Diagram 63 
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It's a simple matter to read off each term of the function and to make the appropriate connection between the two trees. For 
example, the first term ab'c requires that the ab'-bianch of the left-hand tree be joined to the c' -branch of the right-hand tree, 
and so on for the remaining thiwe terms. 

Generally, theorder in which the variables are divided up is important, but, unfortunately, it's mainly a matter of trial-and- 
error to arrive at the most economical arrangement. Of course, when dealing with more complex circuits, where both the 
right-hand and left-hand trees are quite large, the technique described earlier can be used to minimise each sub-iiec. 

ADVANCED KARNA UGH-MAPPING 

READING IS AND OS WITH PHI 

If phis appear in a set of minienns (ormaxierms) which you intend to decode, whether they appear on a K-map or in decimal- 
mintenn form, it is PARTICULARLY IMPORTANT to decode both the Is and the Os and then compare the resultant 
expressions for the belter circuit. The K-map of Diagram 64 illustrates the necessity for this double decoding in order to 
obtain a minimum tiansmission function. 
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Diagram 64 

Reading off the Is, together with appropriate phis, gives a few different possibilities, such as the following, each of which, 
when factohsed, requires five contacts for its implementation. 

ab + be' + cd' = b(a + c') + cd" 
OR ac + bc" + cd' = c(a + d') + be' 
OR ad + bd" + cd' = d'(b + c) + ad 

On the other hand, if we decode the Os, again making use of the phis, we obtain the hindering function 

b'c' + a'd 
which, when complemented to form an alternative transmission function, results in 

(b + c)(a + d') 

This form requites only four relay contacts, and is obviously simpler than the one obtained by decoding the Is. FUNCTION- 
ALLY the two forms are identical, but ALGEBRAICALLY they're not equivalent, because in some instances a phi is read as 
' 1 ' and as a '0' in the 0-decoding. 

MULTI-LEVEL FACTORING 

Up to this point our reading of a K-map has always resulted in a 2-level expression, that is. either a sum-of-products or a 



26 



September "88 



66 Mao Journal 



product- of-sums expression, which we then factorised further to produce a multi-level, or "mongrel", form, as we did when 
we read the Is in the previous example. 
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Diagram 65 
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The time is now ripe for you to learn how to factorise directly from the K-map. commencing with a fairly simple example, so 
let's look at the two K-maps of Diagram 65. 65a is looped to indicate the conventional method of reading Is, to give the 
expression 

a'b + ab'c + acd' = a*b+ ac(b'+c') 

Look now at 65b, and in particular at the loop which encloses three Is plus one 0. If we read out both loops as tl»ugh they 
were composed entirely of Is, we obtain the expiession 

a'b-f ac 

which, if you compare it with the factorised expression derived from 65a, agrees with that reading, apart from the term 
enclosed in parens. 

Now, it's clear that the term "ac" in 65b's expression is incorrect, as it includes the 0- square abed, so we COULD make the 
function correct by writing 

a'b + ac.(abcd)' 

which we read as - a'b OR ac but NOT abed. Heie 1 should mention that in Boolean algebia AND and BUT arc equivalent, 
both making use of the symbol '.' in an expression. 

However, as we have the literals "ac" both inside AND outside the parens, we are permitted to delete them from the inside, so 
the resultant expression ends up as 

a'b + ac.(bd)' = a'b + ac(b' + d') 

agreeing exactly with the factorised expression of 65a. 
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Diagram 66 

With a Utile piactice you should be able to write down the multi-level form directly from the K-map. All cases arc not as 
simple as the one we've just done, however, so we'll develop the technique further with the map of Diagram 66. Here the 
two factors overlap, the two loops circled with dotted lines giving us a reading of 
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PROGRAMMING LANGUAGES 

PL/9 from Windnnh Micro Systems - By Graham Troa. A combination 
Editor Compiler Debugger. Direct source-to-object compilation 
delivering fist, compact, re-entrant, ROM-ible, PIC. 8 <fe 16bit 
Integers & 6-digii Red numbers for all real-world problems. Oirect 
control over ALL System resources, including interrupts. 
Comprehensive library support, simple Machine Code interface,- step 
by-ilep tracer for instant debugging. 500+ page Manual with tutorial 
guide. 

F . S. CCF - $ 198.00 

PASC from S.E. Media - A FLEX9, SK*DOS Compiler with a definite 

Pascal "flavor". Anyone wilh a bit of Pascal experience should be able 
to begin using PASC to good effect in shot t order- The PASC package 
comes complete wilh three sample programs: ED (a syntax or structure 
editor}, EDITOR (a simple, public domain, screen editor) and CHESS 
(a simple chess program). The PASC package come* complete with 
source (written in PASC) and documentation. 
FLEX, SK*DOS $95.00 

WHIMSICAL from S.E MEDIA Now supports Real Numbers. "Struciured 
Programming" WITHOUT losing ihc Speed and Control of Assembly 
Language! Single-pass Compiler features unified, user-defined IAD: 
produces ROMablc Code; Procedures and Modules (including pre* 
compiled Modules);: many "Types" up to 32 bit Integers, 6-digii Real 
Numbers, unlimited sized Arrays (vectors only); Interrupt handling; 
long Variable Names; Variable Initialization; Include directive; 
Conditional compiling; direct Code insertion; control of the Suck 
Pointer etc. Run-Tune subroutines inserted ai called during 
compilation. Normally products 10% test code than PL/9. 
F. Sand CCF. SI 95. 00 

KANSAS CITV BASIC from S.E. Media - Basic for Color Computer OS-9 
wilh many new commands and sub-funclrons added. A full 
implementation of the IF-THEN -ELSE logic is included, allowing 
noting to 255 levels. Strings are supported and a subset of the usual 
suing functions such as LEFTS, RIGHTS. rVODS. STRINGS, etc. are 
included. Variables are dynamically allocated Alio included are 
additional features such as Peek and Poke. A must for any Color 
Compiler user running OS-9. 
CoCo OS-9 S39.95 

C Compiler from Wind rush Micro Systems by James McCosh. Full C for 
FLEX. SK*DOS except bit-fields, including an Assembler. Requires 
the TSC Relocating Assembler if user desires to implement hi] own 
Libraries. 

F. Sand CCF - $295.00 

C Compiler from Introl — Full C except Doubles and Bit Fields, 

streamlined for the 6809. Reliable Compiler; FAST, efficient Code. 
More UNIX Compatible than most. 

FLEX,SK*DOS. CCF. OS-9 (Level II ONLY). V ■ $575.00 

PASCAL Compiler from Lucldata - ISO Based P-Code Compiler. 

Designed especially for Microcomputer Systems. Allows linkage to 
Assembler Code for maximum flexibility. 

F. S and CCF 5' - $190.00 F. S «"- $20500 

OmegaSoft PASCAL from Certified Software - Extended Pascal for 
systems and real-time progjimmuig. 

Native 68000*8020 Compiler, S575 for base package, options available. 
For OS/-9/68000 and PDOS host system. 

6809 Cross Compiler (OS-9AS8000 host) 3700 for complete package. 



KBAS1C - from S.E. MEDIA - A "Native Code* BASIC Compiler which u 
now Fully TSC XBASIC compatible The compiler compiles to 
Assembly Language Source Code. A NEW, streamlined , Assembler is 
now includad allowing the assembly of LARGB Compiled K-BASIC 
Programs. Conditional assembly reduces Run-time package. 
FLEX, SK*D0S. CCF. OS-9 Compiler /Assembler $99.00 
CRUNCH COBOL from S.E. MEDIA - Supports large subset of ANSU 
Level 1 COBOL with many of the useful Level 2 features. Full FLEX, 
SK+DOS File Structures, including Random Files and tire ability to 
process Keyed Files. Segment and link large programs at runtime, or 
implemented as a set of overlays. The System nsquirea S6K and CAN 
be run with a single Disk System. A very popular product. 
FLEX. SK* DOS. CCF -$99.95 
FORTH from Stearns Electronics - A CoCo FORTH Progrvnurung 
Language. Tailored to the CoCol Supplied on Tape, transferable to 
disk. Written in FAST ML. Many CoCo functions (Graphics. Sound, 
etc.). Includes an Editor, Trace, etc Provides CPU Carry Flag 
accessibility, Fast Task Multiplexing, Clean Interrupt Handling, etc. for 
the "Pro". Excellent 'Learning" tool) 
Color Computer ONLY - $58.95 
FORTHBUH.DER is a stand-alone target compiler (crosscompiler) for 
producing custom Forth systems and application programs. 
All of the 83-standard defining words and control structures are 
recognised by FORTHBUILDER. 

FORTHBUILDER is designed to behave as much as possible tike a 
resident Forth inter preter/compiler, so thai most of the established 
techniques for writing Forth code can be used without change, 
like compilers for otter languages, FORTHBUILDER can operate in 
"batch mode". 

Tire compiler recognizes and emulates target names defined by 
CONSTANT or VARIABLE and is readily extended with "compile- 
time" definition- to emulate specific target words. 
FORTHBUI1DER is supplied as an executable command file 
configured for a specific host system and target processor. Object 
code ftoduced from the accompralying model source code is royalty- 
free to licensed users. 
F.CCF.S- $99.95 

EDITORS & WORD PROCESSING 

JUST from S.E. Media -• Text Formatter developed by Ron Anderson: for 
Dot Matrix Printers, provides many unique features. Output 
"Formatted" Text to the Display. Use the FPRINT.CMD supplied for 
producing multiple copies of the "Formatted" Text on the Printer 
INCLUDING IMBEDDED PRINTER COMMANDS (very useful at 
other times also, and worth the price of the program by itself). "User 
Configurable" for adapting to other Printers (comes set up for Epson 
MX-80 with Grafusx); up to ten (10) imbedded "Printer Control 
Gsmmands". Compensates for a "Double Width" printed line. Includes 
the normal line width, margin, indent, paragraph, space, vertical skip 
lines, page length, page numbering, centrring , fill, justificaiion, tie. 
Use wuh PAT or any other editor. 

* Now supplied as a two disk set: 

Distil; JUST2.CMD object file, 

JUSUIXT PL9 soure*:FLEX. SK'DOS ■ CC 

Disk §2: JUSTSC object and source in C: 

FLEX.SK*DOS-OS9-CC 

The riSC and regular JUST C source are two separate programs . JTSC 
compiles to a version that expects TSC Word Processor type 
commands, (,pp .sp .ce etc) Great for your older text fuel. The C 
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source compile* to a standard syntax JUST.CMD object file. Uiing 
JUST syntax (p ,u .yelc) With all JUST ruDcoant plus seven! 
additional printer formatting functions. Reference Ihe JUSTSC C 
source. For those wanting an excellent BUDGET PRICED word 
processor, with features none of the others have. This is ill 

Disk (I) ■ PL9 FLEX only. F. S A CCF $49.95 
Disk Stl <2) F.SA CCF A 0S9 (C version) ■ $69 95 

OS-9 68K0O0 complete with Source . 119 95 
PAT from S.E. Media • A full feature screen oriented TEXT EDITOR with 
all the best of "PC™ ". For those who swore by and loved only Pl£ . 
this is for you I All PIE features and much morel Too many features lo 
lilt. And if you don't like these, change or add your own. PL-9 source 
furnished. "C" source available soon. Easily configured lo your CRT, 
with special config section. 

Regular FLEX, SK'DOS $129 50 

• SPECIAL INTR0DUC110N OFFER • 179 95 

SPECIAL PAT/JUST COMBO (resource) 
FLEX, SK'DOS $99.95 

OS 9 68K Version $229 00 

SPECIAL PATtJUST COMBO 68K $24900 
Note; JUSTut "C" source available for OS-9 
CEDRIC from S.E Media - A screen onenled TEXT EDITOR with 

availability of 'MENU' aid. Macro definmons, configurable permanent 
definable MACROS' - all standard features and the fastest 'global' 
fiaictions in the west. A simple, automatic luminal config program 
makes this a real 'no hint ' product. Only 6K in size, leaving the 
average system over 165 tea on for text buffer - ippx. 14,000 plus of 
free memct yl Extra fine for programming as well as text. 

FLEX. SK'DOS $69.95 
BAS-EDIT from S.E. Media ■ A TSC BASIC or XBASIC screen editor. 
Appended to BASIC or XBASIC, BAS-EDIT ii transparent u> normal 
BASIC/XBASIC operation. Allows editing while in BASIC/XBAS1C 
Supports the following functions: OVERLAY. INSERT and DUP 
LINE. Make editing BASIC/XBASIC programs SIMPLE! A GREAT 
lime and effort saver. Programmers love ill NO more retyping entire 
lines, etc, Complete wiih over 25 different CRT terminal configuiation 
overlays. 

FLEX. CCF. SK'DOS $39.95 
SCREDITOR III from Windrush Micro Systems -- Powerful Screen- 
Oriented Editor/Word Processor. Almost 50 different commands; over 
300 pages of Documentation wiih Tutorial. Features Multi-Column 
display and editing , "decimal align" columns (AND add than up 
automatically), multiple keystroke macros, even/odd page headers and 
footers, imbedded printer control codes, all justifications, "help" 
support, store common command scries on disk, etc. Use supplied "set- 
ups". or remap the keyboard to your needs. Except for proportional 
printing, this package will DO IT ALL1 
6800 or 6809 FLEX. SK'DOS or SSB DOS. OS-9 - $175.00 
SPELLB "Computer Dictionary- from S.E. Media - OVER 150,000 words! 
Look up a word from wilhin your Editor or Word Processor (wiih the 
SPIICMD Utduy wAicA operates ,n Ihe FLEX, SK'DOS UCS) Or 
chack and update the Text after entry; ADD WORDS to the Dictionary, 
"Rag" questionable woids in ihe Text, "View a word u ccctexl" before 
changing or ignoring, etc. SPELLB first checks a "Common Word 
Dictionary", then the noimal Dictionary , then a "Personal Word List", 
and finally, any "Special Word List" you may have (pacified. SPELIJ) 
also allows the use of Small Disk Storage systems. 

P, Sand CCF $129 95 



STYLO-CRAPH from Great Plains Computer Co. -- A full-screen onenled 
WORD PROCESSOR - (uses the 5 1 x 24 Display Screens on CcCo 
FLEX/SK'DOS, or PBJ Wotdpak). Full screen display and editing; 
support) the Daisy Wheel proportional printers. 
NEW PRICES 6809 CCF and CCO - $99 95, 
F.Sor O $179 95. U - $299.95 
STYLO-SPELL from Great Plains Computer Co Fast Computer 
Dictionary. Complements Stylograph. 

NEW PRICES 6809 CCF and CCO - $69.95. 
F.S or O - $99.95. U - $149.95 
STYLO-MERGE from Great Plains Computer Co. -- Merge Mailing List to 
"Form" Letters, Print multiple Files, etc.. ihraugh Stylo. 
NEW PRICES 6809 CCF andCCO . $59 95, 
F. S or O- $79 .95. U $129.95 
STYLO-PAK — Graph + Spell *■ Merge Package DeaMII 
F.SorO $329 95. U $549 95 
0. 68000 $695.00 

DATABASE ACCOVNT1NG 

XDMS from Westchester Applied Business Systems 
FOR 6809 FLEXSK«l)OS(5/8") 

Up to 32 groups/fields per record! Up lo 12 character file names! Up to 1024 
byte records) User defined screen and prim control! Process filesl Form 
filed Condiuonal execution] Process chaining 1 Upward/Downward file 
linking! File joining! Random file virtual paging) Built in utilities! Blull 
in text line editor) Fully session oriented! Enhanced forms! Boldfaac. 
Double width. Italics and Underline supported I Written in compact 
streamed assembler! Integrated for FAST execution! 
XDMS-IV Data Management System 

XDMS-fV is a brand new approach lo data management. It not only permits 
users to describe, enter and ictiieve daia. but also to process enure Tiles 
producing customizad <epons, screen displays and file output. 
Processing can consist of any of a set of standard high level functions 
including record and field selection, sorting and aggregation, lookups in 
other filet, special processing of record subsets, custom lepon 
formatting, totaling and subtotaling. and presentation of up to three 
related files as a "database" on user defined output reports. 
POWERFUL COMMANDS! 

XDMS-IV combines the functionality of many popular DBMS software 
systems with a new easy to use command set into a single integrated 
package. We've included many new features and commands including a 
set of gencial file utilities. The processing commands are Inprjl-Procus- 
Onpiii (IPO) which allows almost instant implementation of a process 
design. 

SESSION ORIENTED! 
XDMS-IV is session onenled. Enter "XDMS" and you are in msiani 

axrunand of all Ihe features. No more wailing for a command to load in 
from disk! Many commands are immedi ale. such as CREATE (file 
definition). UPDATE (file editor). PURGE and DELETE (utilities). 
Others are process commands which are used to create a user process 
wliidi is executed with a RUN command. Either may be entered into a 
"process" file which isexacuicd by an EXECUTE statement. Pro«ucs 
may exacutc other processes, or themselves, either conditionally or 
unconditionally. Menus and screen prompts are easily coded, and cnuic 
user applications can be run without ever leaving XDMS-IV 
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ITS EASY TO USEI 

XDMS IV keeps data management limpid Ratlicr chin design i complex 
DBMS which hides the true nature of the data, we kept XDMS-IV Tile 
oriented. The user view of data relations hips ii prcsen led in reports uid 
total ouifui, while the actual data ruidea in easy to maintain flics. 
This aspect pcmiiu custom) zed presentation and reports wtthota 
complex ruiefinilicfl of the datable Tiles aad structure. XDMS-IV may 
be used for a wide range of applies bans from simple record 
management systems (addresses, inventory ...) to integrated database 
systems (order entry . accounting .) 

Ihe possibilities are unlimited... 

FOR 6809 FLEX-SK*DOS(S/8") $249.95 

UTILITIES 

6*sk09 XRef from S.E Media - This Bauc09 Croat Reference Utility it a 
Basic09 Program which will produce a "pretty printed'* listing with each 
line num bend . followed by a complete cross re fe rented listing of all 
variables . external procedures, and line numbers called. Also includes a 
Program List Utility which outputs a fast "pietty primal' listing with 
line numbers. Requires B*sic09 or RunB. 

O <4 CCO obj. only .. 139.95. wl Source • S79M 

CTree Routines - Complete set of routines to allow simple implerooiuUiun 
of keyed Tiles - for your prog rami - running under Basic09. A real time 
saver and should be a part of every serious programmers tool box. 
i CCO obj. only ■ J89.95 

Lucldata PASCAL UTILITIES (Requires Pascal vet 3) 

XREF - produce a Cross Reference Listing of any text: oriented to Pascal 
Source. 

INCLUDE - Include other Files in a Source Text, including Binaiy - 
unlimited netting. 

PROFILER - provides an Indeniol, Numbered, "Struoognun" of a Pascal 
Source Text Hie: view the overall structure of laige programs, piogram 
integrity, etc. Supplied in Pascal Source Code: requires compilation. 
F.S.CCF-EACH S'-UOm. f-SiOM 

DUB from S.E. Media - A UnlFLEX BASIC decompiler Re-Geate a 
Source Luting (ran UniFL£X Compiled basic Programs. Woiks w/ 
ALL Versions of 6809 UmFLEX basic. 
U - 1219.95 

LOW COST PROGRAM KIT'S from Southeast Media The following kits 
are available for FLEX , SK'DOS on either 5" or 8" Disk. 

1. BASIC TOOL-CHEST $29.95 
BUS1r2R.CMD: pretty printer 
UNEXREF.BAS: line cross- re ferencer 
REMPAC BAS. SPCPACBAS, COMPAC BAS: 
remove superfluous code 

STRIP. BAS: superfluous line-numbers stripper 

2. FLEX.SK'DOS UTILITIES KTT $3959 
CATS. CMD-. alphabetically-toned dirccloiy listing 
CATD.CMD-. date -toned directoiy listing 
COPYSORT.CMD: file copy. alphabetically 
COPYDATE.CMD: file copy, by date-order 
F1LEDATE.CMD-. change file creation dale 

DVFO.CMD (4 INFOCMX.CMD): tells disk attributes A contents 
RELINK CMD (4 RELINK82): re-orders fragmented free chain 
RESQ.CMD: undeletes (recovers) a deleted file 
SECTORS.CMD: show sector order in free chain 
XL.CMD: super text lister 



3. ASSEMBLERS/DISASSEMBLERS UTILITIES $39.95 
LiNEFEED.CMD: 'modularise' disassembler output 
MATH.CMD: decimal, hex. binary, octal conversions 

&. tables 

SKIPCMD: column stripper 

4. WORD - PROCESSOR SUPPORT UTILTrtES $49.95 
FULLSTOPCMD: checks for capitalization 
BSTYdT.B AS (.B AC): Stylo to dot-maiiix punter 
NECPRINT.CMD: Stylo to dot-matrix pniiier filler code 

5. UTILITIES FOR INDEXING $49.95 
MENU.BAS: selects icquiiad piogram from list below 
INDEX. BAC: woid index 

PHRASES.BAC: phrase index 

CONTENT BAC: table of contents 

INDXSORT.BAC: fast alphabetic tort routine 

FORMA I hK BAC: piuducea a 2-column formaued index 

APPEND.BAC: append any number of files 

CHAR BIN: line reader 
BASIC09 TOOLS cons si of 21 subroutines for BasicO) 
6 were written in C Language and the remainder in assembly. 
All the routines are compiled down to native machine code wluch 
makes lliem fast and compact. 

1. CFILL - fills a stiing with characters 

2. DPEEK - Double peek 

3. DPOKE -Double poke 

4. FPOS - Current file position 

5. FSIZE -Filesiae 

6. FTRIM - removes leading spaces from a stiing 

7. CETPR -- returns ihe current process ID 

8. GETOPT - gets 32 byte option section 

9. GETUSR - gets the user ID 

10. GTIME - gets the time 

11. INSERT — insert a string into another 

12. LOWER - converts a string into lowercase 

13. READY - Checks for available input 

14. SETPRIOR • - changes a process piiohty 

15. SETUSR - changes the user ID 

16. SETOPT •■ set 32 byte option packet 

17. STIME - sets the time 

18. SPACE - addt spaces to a siring 

19. SWAP - swaps any two variables 

20. SYSCALL - system call 

21. UPPER —convent a stiing to uppercase 

For OS-9 • $44.95 • Includes Source Code 

Limited Special . $19.95 
SOFTOOIS 

The following programs are included in object form for immediate 
application. PL/9 source code available for customization. 
READ- ME Complete instructions for initial set-up and operation. Can even 

be piimed out with the included text procetsor. 
CONFIG one lime system configuration. 

CHANGE changes words, characters, etc. globally to any lext type file. 
CLEANTXT converts lext files to standard FLEX. SK'DOS files. 
COMMON compare two text files and reports differences. 
COMPARE another check file that reports mis-inatchad lines. 
CONCAT umilxr to FLEX. SK'DOS append but can also list files to screen. 
DOCUMENT for PU9 touree files. Very useful in examining parameter 

pasting aspects of procedures. 
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ECHO echo* toother screen or Tile. 

FIND an improved find command with "pattern" ma Idling and wildcards. 
Very u it fill. 

HEX dumpt file* in both hex and ASCII. 

INCLUDE a file copy program thai will accept "include!" of other disk fdci. 

KWIC allows totaling each woid. on each line lo the beginning Very useful 
in a son program, etc. 

LISTDIR a directory lifting program. Not super, but b rnf r than CAT. 

MEMSORT a high-speed text file sorter. Up lo 10 fields may be sorted. 
Very fast. Very useful 

MULTICOL width of page, number of columns may be specified. A 
MUST1 

PAGE similar to UST but allows for a page header, page width and depth. 
Adjust for CRT screen or punter as set up by CONFIG. A veiy sman 
ptinl diiver. Allows printer control •ommands. 

REMOVE a fast file deleter. Careful, no prompts issued. Zap. and its gone! 

SCREEN a screen listing utility. Word wraps lexi to fit rcrcov Scnzn depdi 
may be altered at run time. 

SORT a super version of MEMSORT. Ascending/descending order, up to 10 
keys, case over-ride, son on n* woid and son on characters if file is 
small enough, sons in RAM. IT large file, sort it constrained to size of 
yoiirlaigcsidixk capacity 

TPROC a small but nice teal formatter. This is a •omplete formatter and has 
haictions not found in other formatters. 

TRANSLIT sons a file by x keyliields. Checks for duplications. Up to 10 
key files may be used. 

UNROTATE used wilh KWIC this program reads an input fule and unfolds 
il a line ai a lime. If the file has been sorted each word will be 
presented in sequence - 

WC a word count utility. Can count words, characters or lines. 

NOTE: IMs («t of utilities consists of 6 5.1/4" disks or 2 8" disks, w/ 
source (PL9). 3 5-1/4" disks or 1 8" disk w/o source. 
Complete set SPECIAL INTRO PRICE: 
5-1/4- w/source FLEX - SK'DOS . $129.9$ 
w/o source • 579.95 
8* w/source -$79.95 - w/o sou ne $49.95 

FULL SCREEN FORMS DISPLAY from Computer Systems Consultants - 
- TSC Extended BASIC program supports any Serial Terminal with 
Cursor Control or Memory-Mapped Video Displays; substantially 
extends Use capabilities of the Program Designer by providing a table- 
driven method of describing and using Full Screen Displays. 
F.Sand CCF. V - 125.00, w/ Source - 150 00 

SOLVE from S.E Media • OS 9 Levels I and II only. A Symbolic Object/ 
Logic Verification & Examine debugger. Including inline debugging 
disassemble and assemble. SOLVE IS THE MOST COMPLETE 
DEBUGGER we have seen for the 6809 OS-9 series! SOLVE docs it 
all! Wilh a rich selection of monitor, assembler, disassembler, 
envinxmenlal. exccutiion and other miscellaneous axsuruuids. SOLVE 
is the MOST POWERFUL lool-ku item you can own! Yet. SOLVE is 
simple lo uscl Wilh complete documentation, a snap! Eveiyone who 
has ordeied this package has raved! See icview - 68 Micro Journal - 
December 1985. No "blind' debugging here, full screen displays, rich 
and complete in infonnation picsenled. Since review in 68 Micro 
Journal, this is our fastest mover! 

Levels I & II only ■ OS-9 S69.9S 



DISK UTILITIES 

OS9 VDlsk from S.E. Media - For Level I only. Use ihc Extended 
Memory capability of your SWTPC or Gimix CPU card (or similar 
format DAT) for FAST Program Compiles, CMD execution, high speed 
inlcr-proEcu communications (without pipe buffers), etc. - SAVE thai 
System Memory. Virtual Disk size is variable in 4K increments up lo 
960K. Some Assembly Required. 

tew// OS-9 obj. 579.85, wl Source $149.95 

OF from S.E. Media - Written in BASIC09 (with Source), includes: 

REFORMAT, a BASIO09 Program that reformats a chosen amount of 
an OS-9 disk to FLEX. SK'DOS Format so il can be used nonnally by 
FLEX. SK'DOS: and FLEX, a BASIC09 Program lhai does the actual 
read or write function to llie special O-F Transfer Disk; user-friendly 
menu driven. Read the FLEX. SK'DOS Direcioiy, Delete FLEX. 
SK'DOS Files. Copy both directions, etc FLEX. SK'DOS useis use 
the special disk just like any other FLEX, SK'DOS disk 
O- 6809168000 $79 95 

LSORTfrom S.E. Media . A SORT/MERGE package for OS-9 (Level 1 & 
□ only) Sorts records with fixed lengths or variable lengths. Allows 
for either ascending or descending son. Sorting can be done in eilher 
ASCII sequence or alternate collating sequence. Righl. lefl or no 
justification of data fields available. LSORT includes a full set of 
comments and errors messages. 
OS-9 $85.00 

HIER from S.E. Media HIER is a modern hicrar hal storage system for 
users under FLEX, SK'DOS II answers the needs of those who have 
hard disk capabilities on their systems, or many files on one disk • any 
size. Using HIER a regular (any) FLEX, SK'DfJS disk (8 - 5 - 
hard disk) can have sub directories. By this method the problems of 
assigning unique names lo files is less burdensome Different files with 
the exact same name may be on ihe same disk, as long as they are in 
different directories. For ihc Winchester user this becomes a must Sub- 
diiectories are ihc modem day solution thai all current large systems 
use. Each directory looks to FLEX, SK'DOS like a regular llie, 
except they have the extension ' DIR A full set of directory handling 
programs are included, making the operation of HIER simple and 
straighlforwaid. A special install package is included lo install IIIEK to 
your particular version of FLEX, SK'DOS. Some assembly requited. 
Install indicates each byte or reference change needed. Typically - 6 
byle changes in source (furnished) and one assembly of HIER is all dial 
is icquiied. No piogramming requiiedl 
FLEX ■ SK'DOS $7995 

COPYMULT from S.E. Media - Copy LARGE Disks to several smaller 
Asks. FLEX, SK'DOS utilities allow the backup of ANY size disk lo 
any SMAU£R size diskettes (Haid Disk lo floppies. 8' lo 5". etc) by 
simply inserting diskettes as icquested by COPYMULT. No fooling 
wilh direcuiy deletions, etc. COPYMULT.CMD understands normal 
'oopy' syntax and keeps up wilh files copied by maintaining dintcloiies 
for both host and receiving disk system. Also includes BACKUP.CMD 
to download any size 'random' lype file; RESTORE.CMD to 
restructure copied 'random' files for copying, or recopying back lo the 
host system; and FREELINK.CMD as a "bonus" utility lliat "relinks" 
the free chain of floppy or hanl disk, eliminating f ragmenlauon 

Completely documented Assembly language Source fifes included. ALL 4 
Programs (FLEX. SK'DOS. «" or 5") J9P.50 



O ■ OS-t. S • SK'DOS 

t* . flix. u . Ubiflex 

CCS) ■ CM* Crnipaltr OS-* 
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South Tost Media 
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COPYCAT from LucidaU - Pascal NOT required Allows reading ISC 
Mini - FLEX, SK«DOS, SSB DOS68, and Digital Research CP/M Disks 
while operating under SK'DOS . FLEX l.O. FLEX 2.0, or FLEX 9.0 
with 6800 or 6809 Systems. COPYCAT will not peifonn minder, but, 
between the program and the manual, you stand a good dunce of 
a«cr*n pruning a transfer. Also includes same Utilities to help out. 
Programs supplied in Modular Source Code (Assembly Language) to 
help solve unusual problem s. 

F.SandCCFS- IS0M F.S S"-S6SM 

V1RTUA L TERM IN A L from S.E. Media ■ Allows one terminal to do the 
woik of several The user may sun at many as eight tasks on one 
terminal, under VIRTUAL TERMINAL and switch back and forth 
between tasks at will. No need to exit each one; just jump back and 
forth. Complete with configuration program. The best way to keep up 
with those background programs. 

6809 O A COO - obj. only - S49.95 

FLEX, SK'DOS DISK UTILITIES from Computer Systems Consultants - 
Eight (8) different Assembly Language <w/ Source Code) FLEX, 
SK'DOS Utilities for every FLEX, SK'DOS Users Toolbox: Copy a 
File with CRC Emus; Test Disk for errort; Compaie two Disks: a fast 
Disk Backup Program; Edit Disk Sectors; Linearise Free-Chain on the 
Disk: print Disk Identification, and Sort and Replace the Disk Directory 
(in sorted order).. - PLUS •• Ten XBASIC Programs including: A 
BASIC Resequence r with EXIRAi over "RENUM" like cheek for 
missing label definitions, processes Disk to Disk instead of in Memory, 
etc Other programs Compare, Merge, or Generate Updates between 
two BASIC Programs, check BASIC Sequence Numbers, compare two 
unsequenccd files, and S Programs for establishing a Master Directory 
of several Disks, and sorting, selecting, updating, and printing pig mi led 
listings of these files. A BASIC Cross-Reference Program, written in 
Assembly Language, which provides an X-Rcf Listing of the Variables 
and Reserved Words in TSC BASIC. XBASIC, and PRECOMPILER 
BASIC Programs. 

ALL Utilities include Source Wither BASIC or AL Source Code) 
F.SandCCF SiOM 
BASIC Utilities ONLY for UniFLEX ■■ V0O0 

MS-DOS-FLEX Transfer Utilities to OS-9 For 68XXX and CoCo' OS-9 
Systems Now READ - WRITE . DIR - DUMP - EXPI.ORE FLEX A 
MS-DOS Disk. These Utilities come with a rich set of options allowing 
the transfer of text type files fiomiio FLEX A MS-DOS disks. 'CoCo 
systems require the D.P. Johnson SDISK utilities and OS-9 and two 
drivel of which one must be a "host" floppy. 

*CoCo Version: S69.95 68XXX Version J99.95 

MISCELLANEOUS 

TABULA RASA SPREADSHEET from Computer Systems Consultants - 
TABULA RASA is similar to DESKTOP/PLAN; provides use of 
tabular cooipuunou schemes used for analysis of business, sales, and 
economic condirionj. Menu driven, extensive report-generation 
capabilities. Requires ISC's Extended BASIC. 

F.SandCCF. U - 150.00, wt Source ■ U00AO 
DYNACALC - Electronic Spread Sheet for the 6809 and 68000 
F. S. 0S-9 and SPECIAL CCF . S20000. U - S395 00 
0S-9 68K ■ 1595.00 

FULL SCREEN INVENTORY/MRP from Computer Systems Consultant* 
Use the Full Screen Inventory System/Materials Requiiement Planning 



for maintaining inventories. Keeps item field file in alphabetical order 
for easier inquiry. Locate and/or pnni records matching partial or 
complete item, description, vendor, or attributes: find backorder or 
below stock levels. Ptint-ouu in item or vendor order. MRP capability 
for the maintenance and analysis of Hierarchical assemblies of items m 
the inventory file. Requires TSCs Eatcnded BASIC. 

F.S and CCF. U - SSO.OO. wr Source - 1100 DO 
FULLSCREEN MAILING LIS!" from Computer Systems Consultants - 
The Full Screen Mailing List System provides a means of maintaining 
simple mailing lists. Locate all ntcortli matdting on partial or complete 
name, dry, stale, zip, or attributes for Listings or Labels, etc Requires 
TSCt Extended BASIC. 

F.S and CCF, U . tSOM. w/ Source ■ $100.00 
DIET-TRAC Forecaster from S.E. Media - An XBASIC program that plans 
a diet in terms of either calottes and percentage of carbohydrates, 
proteins and fats (C P G%) or grams of Carbohydrate. Protein and Fat 
food exchanges of each of the six basic food groups (vegetable, bread, 
meat, skim milk, fiuit and fat) for a specific individual. Sex, Age, 
Height, Present Weight, Frame Size. Activity Level and Basal 
Metabolic Rale for normal individual are taken into account. Ideal 
weight and sustaining caloric! for any weight of the above individual 
are calculated. Provides number of days and daily calendar after weight 
goal and calorie plan is determined. 

F.S 159.95. U S89 9S 



GAMES 

RAPIER -6809 Chess Program from S.E. Media - Requires FLEX, 

SK'DOS and Displays on Any Type Terminal. Feature!: Four levels of 
play. Swap side. Point scoring system. Two display hoards. Change 
skill level. Solve Checkmate problems in 1-2-3-4 moves. Make move 
and swap sides. Play while or black. This b one of the strongest 
CHESS programs running on any microcomputer, estimated USCF 
Haling 1600+ (better than most 'club' players at higher lerelt) 
F.SandCCF - J79 95 

NEW 

MS-DOSIFLEX Transfer Utitiaes For 68XXX and CoCo* OS-9 Systems. 
Now Read. Write. DIR. Dump and Explore FLEX A MS-DOS Disks. 
Supplied with a rich let of options lo explore and transfer text type files 
fromAo FLEX and MS-DOS disks. 'CoCo OS-9 requires SDISK 
utilities A two floppy drives. 
CCO $69.95 68XXX OS-9 S99.9S 

Macintosh Software at Discounted Prices 

"Call for prices, it"U be worth the sa vings. " 



/NOTE: Changes 1 

I Price increase for SCULPTOR, tec advertising front of this catalog and 
other ad in tAis issue. Special price for 68 Micro Journal readers. I 

' 2. Lower price for BASIC09 TOOLS, see Utilities section. 

.3. New MS-DOS* FLEX ioOS-9 Uliliti", tee above. 
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a + c 

with both terms including a in their loop, which MUST BE REMOVED. Unlike our earlier example, we can here enlarge 
the O-ceadings to include a 1, or several Is if possible, PROVIDED THESE IS ARE COMMON TO BOTH LOOPS. These 
O-Ioops are shown in solid lines, from which we can see that such an arrangement is quite valid, because while we're neutrali- 
sing a 1 in one loop we're leaving it untouched in the other. Ihus the term "a" is transformed so 

a.(ab'd)' reducing to a.(b'd)' and finally a(b + d') 

while the term "c" goes through the stages 

c.(bcd')' reducing to c.(bd') and finally c(b" + d) 

The final combined expression is therefore a(b + d') + c(b' + d). 

With this type of multiple factorisation, when Os are coupled with Is to form a larger elimination-loop, or inhibiiing-loop. 

you should be VERY careful to ensure that the Is so included also form part of another term from which they arc NOT 

eliminated. 

ENTERING PRODUCT-OF-SUMS TERMS DIRECTLY ON A K-MAP 

You'll recall that somewhere near the start of our journey I told you that expressions of the form 

(a + b)(c + d) 

must first be multiplied out before entering them on a K-map. From now on, should the need arise, you'll enter them directly 
by the simple technique of menially complementing each term in parens AND ENTERING A '0', or preferably a dot, in ihe 
appropriate location on the map. Blank squaies remaining after this operation should then be filled in with Is. 
For example, the expression above will be complemented in each of its bracketed terms to give 

• 

a'b' and c'd' 

and Os entered in the column a'b' and Ihe row c'd' of the K-map. 

FIVE- AND SIX-VARIABLE KARNAUGH-MAPS 

Beyond five variables, K-maps begin to get a bit unwieldy, but at the five level they're still quite useful for minimising 
expressions. As an example suppose we wished to minimise the following Boolean expression 

abe + de + bd' + b'd + be' + bc 

In order to accommodate five variables we draw two 4-variable K-maps side by side as shown in Diagram 67a, one of Ihem 
being headed "e = 0" and the other "e = 1". All terms in our expression which contain a e'-variable are entered on the left- 
hand map only, while those which contain an e-variable are entered on the right-hand map only. Terms which don't contain 
the e-variable in either foim are entered on both maps. By thus appearing in both maps, the e-variable effectively cancels 
itself out, and does not appear in the term corresponding to that entry. 
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Our first step would be to enier abe on the "e = 1" map as though it were ab only, and similarly with de (entered on the "c 
= 1" map as though it were a simple d. Then we'd enter be' on the "e = 0" map as though it were just b. This leaves only 
those terms which don't contain the e-variable at all, so we enter bd' on both maps, also b'd, and finally be. By good 
management on my part in making up the original expression, we end up with an identical set of Is in both maps. 
For the purpose of forming loops we must imagine the maps as being superimposed, and we're permitted to extend our loops 
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vertically as well as horizontally, so now we're into 3D K-maps, Thus the loop "b", being common to both maps, is an 
allowable loop, as is the loop "d". so our minimal expression can be read out as 

b + d 

If, by some chance, there happened to be an extia "1" in the lop right-hand square of the "e = 1" map, we would, of course, 
form a loop of 4 there, and read out ac'e (don't forget the "e" on the end) and our whole expression under these circum- 
stances would be v ab c *° v,b e ™' 

to 
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b + d + ac'e 
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Diagram 67b 
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For six variables we need four K-maps as shown in Diagram 67b. whete the major rows are now labelled "f = 0" and "f ■ 1". 
Ihe ruks are expanded from those of five variables, interpreting the top-left map as "ef = 00", the top-light as "ef = 10", the 
bouom-left as "ef =01"and the bouom -right as "ef = 11". Thus a term containing ef would be recorded only in the top 
tight K-map, a term containing no e-variable. but containing the f- variable as F, let's say, would be entered in both K-maps 
in the "f = 0" iow, and so on. Again, the maps must be imagined as being superimposed, the major Ot-map on the bottom, 
then theOl-map, followed by the 11 -map and finally ihe 10-map. then the whole stack further visualised as being curled 
aiound so the top map is adjacent to the bottom one. Or. if you really want to strain your imagination, iry to visualise Ihe true 
situation, with ihe 00-map being a hollow doughnut (thus preserving all adjacencies in their correct relationship. This 
doughnut is then enclosed inside the 01-doughnut with corresponding squares positioned above each other, followed by an 
outer 1 1-doughnut. and finally a 10-dougbnut enclosing the whole shebang. That's not TOO difficult to imagine, but you 
must now distort the space-time continuum so that the outer 10 doughnut is also INSIDE the innermost 00 doughnut. If you 
can do that successfully, you should have no problem at all in visualising a Klein-bottle!! 

So, having disposed of a lot of bits and pieces over the last couple of miles. I thhik we're poised for a little cliff -climbing next 
time around, when we'll tackle a different MAJOR subject 

OK. I bear you!! Boy. you're an impatient bunch - just clamouring away for another test. Let's see if I can think of some- 
thing for you! Got it!! 

1EST ELEVEN 

1. Design the following networks, using relay-trees 

(a) f 12 = a'b'c' + a'bc + ab'c' + abc 

(b) fl2 = a'b'c'd' + a'b'cd' + a'b'cd + a'be'd' + ab'c'd + 

abe'd + abed' + abed 

2. Draw K-maps for the following functions, and read out the multi-level factoring, marking the appropriate loops and 
inhibiting-loops on the maps. 

The mintenn-numbers must, of course, be convened to 4-bit binary before you can enter them. 

(a) fl 2 = 0,2. 3. 4. 5, 6. 7, 13. 15 

(b)fl2 = 5, 7. 10, 11,13. 14 

(c)fl2 = 0. 1.4, 11, 12.13, 15 

(d) f 12 = 2. 4. 8. 10. 14, 15 with phis = 0, 3, 5, 6. 13 



... End of Mile 13. Now gathered at the Mile- 14 marker! 

FOR THOSE WH 
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A Review of Coach Professional 



By James E Law 
1806 Roek Blurt Rd 
Hixson, TN 37343 



1 never learned lo be a good speller. Sometimes I blame 
it on early teacheis who emphasized ihe message and down 
played grammar in my essays. It's probably more related to 
my getting in too big a hurry and not paying attention to detail. 
It's a good thing 1 have a secretary who can spell at my "real" 
job. 

In the professional context, grammatical errors includ- 
ing spelling errors, are no laughing matter. Ihe business 
world is too competitive to have the credibility of youiself or 
your company huit b y spelling errois or otherwise low quality 
written communications. 

With the wealth of spelling checking programs avail- 
able, the Macintosh user need never worry about spelling 
eirors. One of the more full-featured such program is Coach 
Professional from Deneba Software. Coach Professional 
offeis not only a wide variety of spelling checker options, but 
also definitions and a thesaurus for words in its comprehen- 
sive dictionary. 

Professional Coach contains too many options and 
features to cover 100%, but I will cover enough to give you a 
flavor for how this program woilcs. 

What You Gel. . . 

Professional Coach is based on the 95,000 word Mer- 
riam -Webster's 9th diciionaiy. Also included is a 28,000 
word legal and 35,000 word medical dictionary that may be 
merged with the main dictionary if needed. The fully merged 
set of dictionaries contains a whopping 1 58,000 words (and all 
that in only 343k)! For those who may be shoit on RAM, the 



Meiriam-Webster's Compact 80,000 word dictionary is also 
enclosed. This diciionaiy only occupies 173k on disk. The 
chosen dictionary is supplemented with hyphenation file, the- 
saurus files, and definition files. 

Professional Coach, like many post MultiFinder pro- 
grams, includes both a desk accessoiy and a stand alone appli- 
cation. 

Setting Up the Coach 

Selling up Professional Coach is well covered by the 
manual and lakes only a few minutes. You may have to study 
the manual a while, however, to really undersiand all the 
options presented in the Configuration Options box. Coach 
allows you to change the keyboard commands to suit your 
needs. You will need to be careful about conflicts with your 
applications, however. 

Once you're set up. Professional Coach can perform 
batch spelling checks, perform interactive spelling checks, 
hyphenate words, provide definiiions. and provide synonyms. 

Batch Spelling Checks 

Select any text and type COMMAND + 'V to spelling 
cbeck the selection. In shorl order Coach accumulates all 
potentially misspelled words in the Analysis window then 
immediately presents the first suspect word with suggested 
spellings for that word. The desired alternative may be 
selected through keyboard commands (e.g., COMMAND + 
"l")or by clicking it. This causes the misspelled word to be 
replaced throughout the selected text. If the same misspelling 
occurs several times you will only have to deal with it once. If 
you agree the word is misspelled but don't accept any of the 
alternatives as being right, you can enter command ♦ "P" to 
see a list of phonetic-based (sound alike) spel ling suggestions. 
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For example, (he suspect word "neumonia" would result in 
"pneumonia"asasuggestedcoirect spelling. Sometimes this 
opl ion takes 30-60 seconds to complete. If even this does not 
result in identification of the right spelling, you can enter 
COMMAND + "D"lo open the dictionary tolhe approximate 
position that the misspelled word might occur. You can then 
manually search for the light word. 

Coach not only checks spelling in this mode, but also 
other eirors such as double words, misplaced quotation 
marks, and capitalization eirors at the beginning of sen- 
tences. 

I have a number of spelling checkers and none of them 
present the correctly spelled word as often as Coach. In my 
month or soof woiking with this program, it was rare that the 
correctly spelled word was not number 1 on the list of 
suggestions. 

If the suspect word is not in Coach's dictionary, you 
may Skip the word. Ignore it, or Add it to Uiedictionaiy. If 
you Skip the word, it will be highlighted as a suspectthenext 
time it occurs whereas if you Ignore it, Coach will not bother 
you again with that word in the current checking exercise. 
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Coach Professional's Analysis Window 



During the batch checking piocess. the Analysis window 
accumulates useful statistics including the number of words 
checked, the number of words misspelled, and the number of 
words checked per second. It also shows Iheaverage length of 
words checked and the longest word checked. 

With many spelling checkers, you spend loo much time 
wailing for a suggestion list to be developed on words you 
know are coirectly spelled. Spelling Coach offers a very 
efficient way around this time waster. After spelling checking 
a long document with many suspects, you can stop the building 
of suggeslion lists and select the Analysis window. This 
window will contain a list of all potentially misspelled words. 
You can go through the list cutting out all the words you know 
to be spelled correctly and adding others to the dictionary if 
appropriate. When the spelling check process continues. 
Spelling Coach will only spend time developing suspect lists 
for genuinely misspelled words. This speeds the checking up 
signiiicantly for long documents with many misspelled words. 

Interactive Spelling Checking 

Grammar and spelling can be checked interactively by 
selecting Interactive from the Coach menu. Depending on 
boxes checked in the Configuration Options box, suspect 
words or grammar errors will result in a beep and display of 
typo suggestions or just a beep. When the first option was 
chosen, I was surprised at how quickly Coach presented a list 
of suggest ions after an apparent error (about one second, most 
of the time). As I staled before, this list almost always contains 
the correct pronunciation or spelling, usually as the first item 
in the list. A click on the desired selection or a keyboard 
command causes the enor to be quickly corrected. Just as with 
batch checking, you can ask for phonetic suggestions, open the 
dictionary, add the word lo the dictionary, skip the word, or 
ignore it. 

What Does It Mean? 

If all Coach Professional did was check spelling, it 
would be worth owning, but it does even more to help you make 
your writing as good as it can be. One important function is to 
present the definition of any word in its dictionary. The 
definition window is obtained by selecting a word and typing 
COMMAND + "7". The window then shows alternate 
delinitions.the spelling of various foims of the word, and the 
pan of speech of each (e.g., verb, adjective, noun). The 
window sciolls vertically, as needed, to show hidden text. 

This function is very versatile. The word to be defined 
can be chosen from the document being checked or from a 
Coach Professional window. 
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Saying It Another Way 

Professional Coach displays a complete set of synonyms for each major meaning of words in its dictionary. For example. 
It sets of synonyms arc presented for the word "just" with a total of 80 entries. This information can be presented in a choice 
of 2 foimats. The "List Formal" displays a small window that scrolls vertically to reveal more synonyms in a set and scrolls 
horizontally to reveal different sets of synonyms. The "Text Formal" squeezes all groups of synonyms into a format where the 
most possible information is viewable at the same lime. Which one you choose will be a matter of personal preference. 

Working Together 

Coach Professional 's features are nicely integrated so that they compliment each other. For example, you can select a word 
from your document look up its definition toensure it is the right woid. At the same time, you can view another window showing 
synonyms for the word. You can then select words from either of these windows and view the Definitions or Thesaurus window 
for these new words. 

Should You Buy Coach Professional? 

Coach Professional works with a S12E, MacPlus, SE, or II. As a minimum, two disk drives arc tequired. A hard disk is 
essential, however, u> get the most from this program's many features. 

1 thought Coach Professional was quite complicated when t first looked ai it. The manual's comprehensive coverage of 
the many options led me to this conclusion. After seriously working with Coach Professional for a while, I changed my mind. 
Memorizing less than S keyboard commands and the meaning of a few icons will let you use most of its features. 

Coach Professional is the best spelling checker that I have used to-da ic. If it wasjusta spelling checker, it would be a quality 
product. The additional definitions and ihesauius features make it a solid value. I recommend this product. 
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A Tutorial Series 
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By: R. D. Lurie 
9 Linda Street 
Leominister, MA 01453 



I have been able to get 
my copy of COLOR- 
FORTH to run on my 
CoCo3 with a minimum 
number of compromises; so 
I thought that I would report 
on my progress. I have 
mentioned COLOR-FORTH 
in picvious columns, 
including a fairly detailed 
review, but that was for a 
CoCoI. 

The main problem, 
which I have not yet solved, 
is getting the screen -oriented 
editor 10 function properly 
on the CoCo3. Whenever I 
try to load a screen for 
editing with the command 

1-1105 E<retum> 

for loading screen n 105, 
the system locks up and the 
display goes wild. This 
forces me to reset the CoCo3 
to a COLD START! Need- 
less to say, I would prefer a 
different result. 

Temporarily, I side- 
stepped the problem by not 
using this editor at all. 
Instead, I used the primitive 
P command to write directly 
to a screen. This was not too 
bad, since there are only 32 
characters per line, so there 
was not so much there to be 
corrected if an error showed 
up. My only real complaint 
was that there is no obvious 



MORE ON STEARNS' COLOR-FORTH 



way to spread lines for 
inserting a modification 10 
an existing definition. The 
only way to do this was to 
retype the whole screen, 
beginning at the desired 
change. 

The sequence of 
operations I used with the P 
command are listed in 
Figure 1. 

I have gotten around 
most of the editing problems 
by adapting the FORTH line 
editor supplied with FF9. 
This editor was originally 
written by S H Daniel and 
appeared in FORTH 
DIMENSIONS, vol III. no. 
3. Actually, 1 just copied the 
listing from FORTH 
DIMENSIONS, making the 
few changes necessitated by 
the slight difference in the 
available words ( ENDIF for 
THEN , etc. ). This has 
worked out fine, and I may 
quit while I am ahead. 

The line editor, as I now 
use it for COLOR-FORTH, 
is shown in screens #30 - 39. 
I will not try to explain in 



detail how the editor works; 
just lake my word for it. I 
know that the listing is hard 
to read in this compressed 
formal, but I did it this way 
to save space on the disk. 
Please refer to Brodie's 
"Starling FORTH" for in- 
structions on using this 
editor. It functions identi- 
cally to the one described in 
the first edition, and is the 
line editor described in the 
second edition. This editor 
may be used with any 
display. 

Screen #30 is only the 
the loading screen; you load 
the editor by commanding 

1-130 LOAD <cntcr> 

I must emphasize that 
disk I/O only works with 
512-byte screens, so you 
must adapt your pro 
gramming style to fit within 
this limitation. Actually, this 
is not such a big deal; see the 
explanation below. I find 
that I can get along quite 



Figure 1. The steps in tiding a Steams' COLOR-FORTH screen 
without using the "S8 Editor." 



well with the standard screen 
format provided with 
COLOR-FORTH, so any 
changes are way down on 
my list of priorities. 

Using the 80-column 
Display 

Much higher on my 
priority list was getting the 
80-column "hardware" 
display within the CoCo3 to 
respond id COLOR-FORTH. 
I have done so. and am quite 
happy with the result. In 
fact. I am now using the 
80x28 display. This comes 
up from a cold start using 
the BASIC program in 
Figure 2. Most of the 
information utilized in 
writing this boot came from 
information downloaded 
from CompuServe; I must 
abjectly apologize for not 
being able to identify the 
auihois of the various pans I 
used, but I have lost the 
appropriate references; 
anybody who can enlighten 
me please do so and I will 
give proper credit. 



t. ( tcreen number ) LIST <retum> 

2. Pnss any key lo rcw m to com/nan d mode. 

3. ( line number ) P •cuim> 

4. Type ihc icquiicd toil, limited to 32 character!. <retum> 

5. Repeal itepi 3 and 4 » many limes at necessary, limited to 
tinenumbeji - 15. 

6. L <rcium> to icview the screen. 

7. Press any key to return to command mode. 

8. FLUSH <retum> to lave the current tercet). 
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10 RGB:WIDTH80:CLS3:ATTR3, 2 : " Initialize to 80-col, white on blue 

20 POKE 4H95C9, tH74-.POKE 1HFF22, tHIO : < Lower case on 32x16 

30 POKE 1HFF40.0 : ' Turn off disk drive 

40 CW»PEEK (1HE7) : * Current screen type, so can restore it afterwards. 

50 WIDTH 32 : * For some reason, this is necessary ???? 

60 READ A, V 

70 IF A-0 THEN WIDTH (16*CW-8> 'CW+32 

:PRINT"28 line text screens now enabled." : GOTO220 
80 POKE A,V 
90 GOTO 60 

100 DATA 1HE046, 4H7S 
110 DATA 1HE03D.IH65 

120 DATA 1HF688.£H31 , 1HF689, (HBO 
130 DATA 1HF66B,£H28 , 1HF66C, IHCD 
140 DATA 1HF875,£H30 , 1HF876, (HE0 
150 DATA 1HF866.CH28 , 1HF867, (H70 
160 DATA 1HF683,£H1C 
170 DATA 1HF666, tHIC 
180 DATA IHF87F.1H1B 
190 DATA 1HF8F4.1H1C 

200 DATA !HF69D,tH8C , 1HF69E, SH32 , 1HF69F , 1H40 
210 DATA 0. 
220 VERIFrON 
230 REM 11/03/87, RDL 
240 CLS 

250 PRINT 'Place FORTH disk into drive 10" 
260 PRINT 

Press any key to load FORTH" 



270 PRINT 

280 PRINT 

290 POKE IHFE08.1H9A 

300 PRINT 



Start blink 
Ignore the OS error message." 
310 POKE 1HFE08.1H1A : ' Stop blink 
320 PRINT 

330 PRINT "Type EXEC 1536 to run FORTH" :PRINT:PRINT 
340 AS«INKErS-. IF AS-"" THEN 340 
350 DSKIS 0,0,1, AS, AS 

Figure 2. The BASIC bootstrap program for COLOR-FORTH on the CoCo3. 



All I need to do to load 
COLOR-FORTH is to 
execute this BASIC progiam 
and then follow the direc- 
tions on the screen. Once the 
additional screens, starting at 
20 have been loaded, I type 
the following command: 

l-IW32W80<ENTER> 

Screen #27 has the 
necessary definitions for 
moving back and forth 
between the 80x28 and 
32x16 displays. I don't know 
why, but it is necessaiy to 
call up the 32x16 display 
momentarily in order to get 
the 80x28 screen to do a 
proper carriage return/line 
feed. Sometimes, the 80x28 
screen gets fouled up during 
use and I have to use the 



W32 W80 command line to 
fix the problem. I have no 
idea why this happens, but it 
is so easy to fix that it has 
gotten pushed way down on 
my priority list. 

Shadow Screens 

I have found that the 
only significant limitation to 
the 32x16 screen in 
COLOR- FORTH is that it 
leaves virtually no room for 
comments. Normally, I like 
to put in a lot of comments 
so that I can tell at a glance 
just what a definition is 
expected to accomplish and 
how it goes about it. How- 
ever, a line only 32 charac- 
ters long puts a severe crimp 
in my style of programming; 
therefore, I decided to make 



a virtue out of necessity. 
I am sure that practi- 
cally all of you have heard 
of the concept of "shadow 
screens" for comments. That 
is the technique that I have 
decided to use with 
COLOR -FORTH. I dawned 
on me that disks are now so 
cheap that there is no reason 
to wony about squeezing 
every last word onto a 
minimum number of lines, 
so I can be pretty free about 
"wasting" space. I have 
double-sided drives with my 
CoCo3 which are set up to 
use the back side of drive #0 
as drive #2 and the back side 
of drive#l as drive #3. By 
using the odd-numbered 
drives as the shadow, I could 
have a 32x16 screen for pro- 
gramming and a 32x16 



screen for comments. 
Furthermore, the 80x28 
display was perfect for 
showing the two side by 
side, pretty much as a (Ax 16 
FORTH screen, only better. 
The listings for screens 28- 
29 show what I mean. 

I am working on some 
defmitions for the line editor 
which will make it easy to 
edit the shadow screens. I'll 
publish them as soon as they 
are ready. 

Color Demonstration 

I have also included 
definitions for RGB and 
CMP in SCR #27, as ihey 
may be needed by some 
people. 1 also use these two 
definitions to make very 
quick changes in some of the 
colors, as ihey look different 
on my CM-8 rgb monitor. 

Screen #50 has a simple 
definition which I find 
amusing. It displays all of 
the color combinations of 
letters and background nor- 
mally available by changing 
the attribute byte of the 
display descriptor. There is a 
visually instantaneous color 
change with this display 
when going from RGB to 
CMP, and vice veisa. 

Frankly, now that I have 
gotten COLOR -FORTH to 
work on my CoCo3 , 1 am 
even more impressed with h 
than I was before; but 1 still 
have to admit that I prefer 
FF9. 1 just have to get FF9 to 
work with 80 columns. 
Actually, what I prefer is the 
FORTH-83, so I may try to 
con veil COLOR-FORTH, 
instead. (For those who arc 
interested and may not have 
noticed, COLOR -FORTH is 
available from CP1.) 
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THE ULTIMATE IN 
HARDCOPY 

At the last local FIG 
meeting, Dave Lindbergh (a 
consultant) and Dick Miller 
(Miller Microcomputer 
Services) described what 
must be the ultimate in 
shrinking hardcopy. By 
using a laser printer at 300 
by 300 dots per inch, they 
wete able to produce 
FORTH screens the size of a 
postage stamp; these screens 
could still be read by the use 
of a very strong magnifying 
glass. They were able to use 
a 24-pin dot matrix printer to 
print 3 lines where I would 
normally be printed; this re- 
sulted in 27 screens per 
printed page which could be 
read without any magnifica- 
tion. The entire program for 
either printing method lakes 
9 screens, and the font 
description talcs additional 
screens, the number depend- 
ing on the dot-pattern 
chosen. A 7x5 pattern has 6 
characters per scicen. I don't 
have a 24-pin printer, so I 
have not done any experi- 
menting with this applica- 
tion, yet, but I will report if I 
find it useful other places. If 
you are interested in more 
details before I get around to 
a column report, just contact 
me or Dick Miller; this is a 
public domain program. 

FEEDBACK 

I got an interesting letter 
from Paul Pallmer of Pasco, 
WA, commenting on my 
April column. He felt that 
my method of calculating 
sigma was dangerous, since 
there was the possibility of 
trying to work with small 
diffeiences between very 
large numbers. In theory, I 
agree completely, but in 
about 20 years of using the 
exact technique I described. 



I have never had a real 
engineering or scientific 
problem affected by this 
potential flaw in the algo- 
rithm. When one deals with 
only 4 or 5 significant 
ligures, any differences are 
usually handled easily by the 
math hardware/software. I 
still think that I was justified 
in my choice of technique, 
but others should be warned 
that there is potential for 
grave eiror. 

Let me digress for a 
moment 10 "ride a hobby- 
horse" of mine. I have had 
long discussions/arguments 
with other engineers over the 
question of cross-sectional 
area of a test specimen. As a 
specific example, consider a 
tensile test bar which a 
technician has measured to 
be 0.497 inches wide by 
0.121 inches (hick. She used 
a micrometer calibrated to 
0.001 inches, so we assumed 
that she rounded ihe last 
digit appropiiately. Now the 
question is whether the area 
is 0.060137 square inches or 
0.060 square inches. I have 
always maintained that the 
latter must be true, since the 
potential real value could 
range between 0.496 • 0.120 
= 0.059520 and 0.498 * 
0.122 a 0.060756. Any way. 
I think that too many people 
put too much blind faith in 
numbers, without thinking 
about where those numbers 
came from. I can't help 
wondering if some of 
NASA's problems don't 
arise from a similar blind 
faith in a long list of 
insignificant digits. 



TO FACTOR OR NOT 

TO FACTOR, THAT IS 

THE QUESTION. 

Paul also brought up in 
his letter that I could have 
factored my definition of 
SIGMA much more appro- 
priately. I have to agree, 
again, but.... 

I have a strong faith in 
the good points of factoring 
definitions. The editor 
shown in scieens 30 - 38 is 
an example of good factor- 
ing. Usually, a properly 
factored application is self- 
docummenting, because the 
names of the primitives are 
formed fiom the pseudo- 
equations used to generate 
the algorithm. In fact, if it is 
difficult to think of a suitable 
name for a particular 
primitive, then that is the 
wiong primitive. Exceptions 
do exist, but that is begging 
the issue. 

On the other hand, there 
aie limes when you don't 
want lo factor a definition. 
Usually, this comes from a 
definition that is too simple 
and obvious to bother with, 
as in screen #27 in the defi- 
nitions of W80 and W32 . 
There is a phrase, 

I-IE7 C! F67D JSR 

which is common to 
both definitions. It could be 
called CHANGE-WIDTH 
and proceeded by either or 
2, but that would confuse 
more than clarify the 
definition. 

However, there is 
another consideialion. A 
factored definition does take 
longer lo execute than the 
same unfactored definition. 
Inis is because you must 
pass through NEXTeveiy 
time you move from factor 
to factor, and this always has 
an unavoidable overhead. 
Rarely is this an important 



factor, but it should be 
considered; the few micro- 
seconds saved may keep you 
from having to write a 
definition in assembly 
language. 

As a final point, don't 
factor a working definition 
just because it would look 
neater that way! Since I 
never expect to be using any 
of the potential factors of 
SIGMA fiom my standard 
deviation calculation any 
where else, I decided to quit 
while I was ahead. The 
application worked, so don't 
mess with it! 

MORE ON FEEDBACK 

Paul had some other 
comments which I want lo 
comment on later, but that is 
enough for now. But this 
does bring up another point, 
I can't cover what you want 
lo see if you don't tell me 
about it. Let me know what 
you want, and I will try to 
cover il Even though I am 
not a real FORTH expert, 1 
do have access to some 
people who are the leading 
lights in the FORTH 
community, and I can relay 
your questions to them. 



68 Micro Journal 



September 88 



Listing: 








SCR 



1 30 

\ LINE EDITOR RDL042788 < 




SCR 1 27 








1 


\ Loadinq Screen < 




\ N80 W32 RGB CMP 


RDL042588< 




2 




< 




1 HEX 




< 




3 


31 


< 




2 : t»80 ( - ) 


\ RDL042488< 




4 


39 


< 




3 2 E7 C! F67D 


JSR ; 


< 




5 


THRU < 




4 




< 




6 




< 




5 : W32 ( - ) 


\ RDL042488< 




15 


DECIMAL SIN ;S < 




6 74 95C9 CI 10 


FF22 C! 


< 












7 E7 C! F67D JSR ; 


< 




SCR 


1 31 




8 




< 







: (MATCH) -DUP IF OVER + SWAP DO< 




9 : CMP 1 - ) 


\ RDL042588< 




1 


DUP C! I C« - IF 0- LEAVE ELSE < 




10 E676 JSR ; 




< 




2 


1+ ENDIF LOOP ELSE DROP 0- < 




11 




< 




3 


END IF ; < 




12 t RGB ( - ) 


\ RDL042588< 




4 


: MATCH >R >R 2DUP R> R> 2SWAP < 




13 E674 JSR ; 




< 




5 


OVER + SWAP DO 2DUP I SWAP < 




14 




< 




6 


(MATCH) IF >R 2DROP R> - I SWAP < 




15 DECIMAL SIN ;S 




< 




7 


- 


SWAP LEAVE ENDIF LOOP < 












8 


2DROP SWAP 0* SWAP ; < 




SCR 128 








9 


32 CONSTANT C/L < 




\ LS 


RDL051686 


\ 


LS 


10 


1 CONSTANT B/SCR < 




RDLOSieee 








15 


SIN 


;S < 




1 FORTH DEFINITIONS DECIMAL 


\ 


Display SCRI ( 










SHADOW on 80 col. 








SCR 


1 32 




2 630 CONSTANT SHADOW 




\ 


Offset to back c 


f 





FORTH DEFINITIONS HEX 


< 


disk 










1 


: TEXT HERE C/L 1+ BLANKS WORD 


< 


3 : LS t serf - ) 




\ 






2 


HERE PAD C/L 1+ MOVE ; 


< 


4 N80 




\ 


Force 80-column 




4 


; LINE DUP FFFO AND IF 


< 


screen 










5 


." NOT ON CURRENT EDITING SCREEN< 


5 CR ." SCR 1" DUP 


. 


\ 


Print screen 




6 


• ABORT ENDIF SCR S (LINE) 


< 


number 










7 


DROP ; 


< 


6 16 DO 




\ 


16 lines 




9 


SIN ;S 




7 CR I 2 .R SPACE 


\ 


Print line numbe 


r 








8 DUP BLOCK 32 I 


• + 


\ 


Duplicate scrl t 




SCR 


1 33 




point to 













VOCABULARY EDITOR IMMEDIATE HEX 


< 


9 32 TYPE .» \ 


* 


\ 


line, print it, 




1 


: WHERE DUP B/SCR / SCR ! 


< 


print delim 










2 


." SCR # * DECIMAL . SWAP C/L 


< 


10 DUP SHADOW + BLOCK 32 I * 


\ 


Duplicate scrl t 




3 


/MOD C/L * ROT BLOCK + CR C/L 


< 


point to 










4 


TYPE CR HERE CR C6 - SPACES 5E 


< 


11 + 32 TYPE 




\ 


shadow line; 




5 


EMIT [COMPILE! EDITOR QUIT ,- 


< 


print it 










6 


EDITOR DEFINITIONS 


< 


12 LOOP 




\ 






7 


: ILOCATE SI 8 C/L /MOD ; 


< 


13 SCR ! CR t 




\ 


Update SCR 




8 


: ILEAD ILOCATE LINE SWAP ; 


<; 


14 SIN -> 




\ 






9 


: ILAG ILEAD DUP >R + C/L R> - 


;< 


15 




\ 






10 


: -MOVE LINE C/L MOVE UPDATE ; 


< 












11 


: BUF-MOVE PAD 1* C6 IF PAD SWAP< 


SCR 129 










12 


C/L 1+ MOVE ELSE DROP ENDIF ; 


< 


\ >L <L 


RDL0516B8 \ 


>L <L 




13 


: >LINEI ILOCATE SWAP DROP ; 


< 


RDL05168B 










14 


: FIND-BUF PAD 50 + ; 


< 


1 : >L ( - > 




\ display next 




15 


SIN ;S 


< 


screen 
















2 1 SCR ♦! 




\ 


increment the 




SCR 


1 34 




value in SCR 













: INSERT-BUF FIND-BUF 50 + ; 


< 


3 SCR t LS ; 




\ 


display the new 




1 


: (HOLD) LINE INSERT-BUF 1+ C/L 


< 


screen I shadow 










2 


DUP INSERT-BUF C! MOVE ; 


< 


4 




\ 






3 


: (KILL) LINE C/L BLANKS 


< 


5 : <L ( - > 




\ display previous 




4 


UPDATE ; 


< 


screen 










5 


-. (SPREAD) >LINEI DUP 1 - 0E DO 


< 


6 -1 SCR + ! 




\ 


decrement the 




6 


I LINE 11+ -MOVE -1 +LOOP 


< 


value in SCR 










7 


(KILL) ; 


< 


7 SCR t LS ; 




\ 


display the new 




8 


: X >LINEI DUP (HOLD) OF DUP ROT< 


screen ( shadow 










9 


DO I 1+ LINE I -MOVE LOOP 


< 


8 




\ 






10 


(KILL) ; 


< 


9 SIN -> 




\ 






11 
12 


: DISPLAY-CURSOR CR SPACE ILEAD 
TYPE 5E EMIT ILAG TYPE ILOCATE 


< 
< 
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13 . DROP ; 


< 8 MIN >R R Rl +'. R - >R DUP HERE < 


15 SIN ;S 


< 9 R MOVE HERE ILEAD + R> MOVE R> < 




10 MOVE UPDATE DISPLAY-CURSOR ; < 


SCR 1 35 


12 : U C/L Rl +1 (SPREAD) P ; < 


: T C/L « Rl ! 


< 13 : R (E) I ; < 


1 DISPLAY-CURSOR ; 


< 15 SIN ;S < 


2 : (TOP) Rl ! ,• 


< 


3 : SEEK-ERROR (TOP) FIND-BUF HERE< SCR 1 SO 


4 C/L 1+ MOVE HERE COUNT TYPE 


< \ 800EMO1 04/24/88< 


5 .' NONE' QUIT ; 


< 1 HEX < 


6 : <R) >LINEI INSERT-BUF 1+ SWAP 


< 2 FE08 CONSTANT ATTR < 


7 -MOVE ; 


< 3 < 


8 : P 5E TEXT INSERT-BUF BUF-MOVE 


< 4 : 80DEMO1 < - ) \ 04/22/88< 


9 (R) ; 


< S CR 40 00 < 


11 : L SCR 9 LIST ,- 


< 6 1 ATTR C! < 


IS SIN ;S 


< 7 I 28 -R < 




8 LOOP < 


SCR 1 36 


9 1A ATTR C! $ \ restore color< 


: COPY B/SCR * OFFSET 9 * SWAP 


< 10 DECIMAL SIN ,-S < 


1 B/SCR • B/SCR OVER + SNAP DO DUP< 


2 FORTH I BLOCK 2 - ! W UPDATE 


< ior 


3 LOOP DROP FLUSH ; 


< 


4 : 1LINE ILAG FIND-BUF COUNT 


< 


5 MATCH Rl ♦! ; 


< 


6 : (SEEK) BEGIN 3FF Rl i < IF 


< 


7 SEEK-ERROR ENDIF 1LINE UNTIL ; 


< 


8 : (DELETE) >R ILAG ♦ R - ILAG R 


< 


9 MINUS Rl +! ILEAD ♦ SWAP MOVE 


< 


10 R> BLANKS UPDATE ; 


< 


11 : (F) 5E TEXT FIND-BUF BUF-MOVE 


< 


12 (SEEK) ; 


< 


13 : F (F) DISPLAY-CURSOR ; 


< 


IS SIN ,-S 


< 


SCR 1 37 




: (E) FIND-BUF C9 (DELETE) ; 


< 


1 : E (E) DISPLAY-CURSOR ; 


< 


2 : D (F) E ; 


< 


3 ; TILL ILEAD + SE TEXT FIND-BUF 


< 


4 BUF-MOVE 1LINE 0- IF SEEK-ERROR 


< 


5 ENDIF ILEAD + SWAP - (DELETE) 


< 


6 DISPLAY-CURSOR ; 


< 


8 VARIABLE COUNTER 


< 


9 : BUMP 1 COUNTER *'. COUNTER i 


< 


10 38 > IF COUNTER ! CR CR OF 


< 


11 MESSAGE OC EMIT ENDIF ; 


< 


IS SIN ,-S 


< 


SCR 1 38 




: S C EMIT 5E TEXT t COUNTER ! 


< 


1 FIND-BUF BUF-MOVE SCR 9 DUP >R 


< 


2 DO I SCR ! (TOP) BEGIN 1LINE IF 


< 


3 DISPLAY-CURSOR SCR ? BUMP ENDIF 


< 


4 3FF Rl 9 < UNTIL LOOP R> SCR ! 


;< 


6 : I 5E TEXT INSERT-BUF BUF-MOVE 


< 


7 INSERT-BUF COUNT ILAG ROT OVER 


< 




FOR THO 


se wm 


a 


M.I.I) TO KSOW 
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Bring your FLEX Disk system to todays technology 

HIER Enhancements and Extra Utilities 



Dave Pair 

Computer Science Dept. 

Coventjy Polytechnic, Piioiy Street 

Coventry, England CV1 5FB Tel: (203) 838710 

Some lime ago I purchased HEIR 
from S.E. Media, having been im- 
pressed by the specification given in 
the advertisement. First of all let me 
state that it is a very clever piece of 
software and docs evety thing claimed; 
however I have to say that I soon came 
upon a problem with my particular 
system configuration, and since there 
could be a number of people in a 
similar situation, my solution may be of 
interest. 

I wanted to use HIER on a FLEX 
system which has a lOmb. Winchester 
and a single 5" floppy drive. While I 
assigned the Winchester to be the 
system drive and the floppy to be the 
work drive, I could create and move 
into sub-directories with no problem at 
all. However, what I really wanted was 
both system and work drive assigned to 
the Winchester, because that is where I 
was going to be storing a large number 
of files. 

When I created sub-directories on 
the Winchester and 'changed-directory' 
into one of them, I found that normal 
FLEX system commands were no 
longer accessible unless I either called 
them via the RUN utility supplied with 
HIER, or copied the commands from 
the HOME directory into each and 
every sub-directory. Obviously neither 
of these alternatives was satisfactory, 
so I set about producing some modifi- 
cations to HIER which would solve the 
problem. 

What I have come up with is a 
number of lines of code to be inserted 
into HIER, and two extra utility 
programs in addition to those supplied. 



I have discussed this matter with Ray 
Goff, the author of HIER, and he is 
happy for me to give details of my 
modifications in such a way as to be 
useful to people who have purchased 
HIER, but obviously without giving 
away secrets of his product. Therefore I 
will give an explanation of my modifi- 
cations, followed by details of how to 
add these to the HIER source code. 
N.B. Ihese modifications apply only 
to the FLEX version of HIER, not to 
the SK*DOS version. 

THEORY 

The trick is to hijack FLEX at the 
point where it opens a command file 
for reading (and subsequent loading 
and execution). Normally HIER forces 
the ditectory search for a file to be 
made in the current directory, so HIER 
must be informed that in this case, the 
search should be made in the HOME 
directory. To achieve this, a patch is 
inserted in FLEX (before it opens the 
command file for reading) which 
causes a jump to a few extra lines of 
code added to HIER. This code sets a 
flag byte to indicate to HIER that the 
open-for-read search is to be performed 
in the HOME directory. After the 
command file has been successfully 
opened, the flag byte is cleared again so 
that HIER will look in the current 
directory for any filenames which are 
arguments on the command line, or for 
workf iles. The code then jumps back to 
FLEX where it left off. 

User commands in the current 
directory can still be invoked by means 
of the RUN utility. Also, if a command 
is to be executed from a hierarchically- 
structuted disk in the work drive, the 



command will be searched for in the 
HOME directory of that disk; therefore 
if the command is in a different 
directory, the RUN utility should again 
be used. Since HIER relocates itself 
and alters the end-of-memory when it is 
first run, the extra instructions added to 
it are allowed for automatically. 
Changing HIER in this way involves no 
disturbance to an existing system, 
assuming that all system commands 
have been placed in the HOME 
directory; it is simply a matter of re- 
assembling HIER and invoking the new 
version at STARTUP. However, there 
is another possibility, so lead on... 

Personally I would lather reserve 
the HOME directory as much as 
possible for sub-directories, placing all 
system commands at a lower level in a 
CMD subdirectory. Fortunately, 
making this work is also very easy, 
simply by adding two extra instructions 
to the modifications, but it docs mean 
that the system disk has to be re- 
organised somewhat so that the 
command files are in the right place. 
There arc many ways to achieve this, 
for instance I found it simple to work 
from a system floppy disk in my 5" 
drive, running the original version of 
HIER, until I had correctly organised 
the Winchester, then re-booting and 
running the new version of HIER to 
lake future commands from the CMD 
sub-directory. If you are piepared to re- 
format your Winchester, you can create 
CMD as the first sub-directory on the 
disk, which should keep access limes 
down. 
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The one remaining problem with 
HIER which is not solved by these 
modifications is that of libiaiy Hies, 
include Hies and files like PR1NT.SYS 
and ERRORS. SYS, which also cannot 
be found unless they exist in the current 
working directory. My solution to this 
was to provide links in Ihe current 
directoiy to flies in other directories 
which might be needed; I do this by 
means of a link progiam LN which I 
have written. The link entries can. if 
desired, be catalog-protected to cut 
down on output when listing the 
contents of a directory. I have also 
written an unlink program ULN to 
safely remove unwanted link entries 
from a directoiy, since the FLEX 
command DELETE cannot be used. 

1 show below my modifications to 
HIER, but the LN and ULN programs 
(written in assembler) are too long to 
include here. However 1 am prepared to 
supply these in executable form on 
disk, at a small charge to cover the cost 
of media, shipping and handling. I 
don't think 1 should supply sources 
since these contain some sections of 
code which parse the directoiy paths in 
a similar manner to a number of the 
utilities sold with HIER. If anybody is 
interested, please let me know disk size 
(8, 5.25 or 3.5") and the type of 
formatting required, and enclose a 
check/cheque for $15 U.S. or »8 
Sterling, made payable to "Coventry 
Polytechnic". 



ADDING MODIFICATIONS 

Add to H1ER.TXT. between lines 
257 and 258. the following: 

DSKCMl IDA IS02 

STA COMFLG,PCR 

JSR OPNFRD 

CJJR COMFLG.PCR 

JHP DSKCMR 
COMFIT FCB 

Next add. between lines 172 and 
173. the following: 

TST COMFLCPCR 
SCO RDSIR 
IDD 4CMDDIR 
BRA OK 
RDSIR EQU • 

Now add, between lines 153 and 
154, the following: 

STA DSKCMD 
L£AX DSKCMl, PCR 
STX DSKCMD+1 
LEAX HIER, PCR 

Finally, it is necessary to define the 
extia labels used in these inserted lines. 
Ideally ihis would be a Job for an instal- 
lation program, but for Ihe purposes of 
this anicle 1 will describe now to find 
ihe necessary values. 

Firstly, the labels DSKCMD and 
DSKCMR must be locaied in FLEX; in 
most versions these will be al SD22E 
and SD232 respectively, but you may 
possibly have a version of FLEX where 
this differs slightly. In that case, the 



correct locations can be identified by 
searching in the same area for the suing 
of bytes 86 02 8D 22 8D EA BD Dl 
A2 The location of the first byte (86) is 
Ihe value for Ihe label DSKCMD and 
ihe location of Ihe fifth byte (8D) is the 
value for DSKCMR. Similarly. Ihe 
label OPNFRD should be locaied a 
little further on, probably at location 
SD254. The suing of bytes lo took for 
in order to check this is 8E C8 40 BD 
DO EB 8E C8 40 the value for the label 
being the location of the first 8E. If you 
are unable to find either of ihese strings 
of bytes, il is not advisable to proceed 
further, unless you feel competent to 
investigate FLEX more deeply. 

Finally Ihe label CMDDIR. which 
is actually ihe track/sector address 
where Ihe directoiy which holds all ihe 
system commands begins on ihe win- 
Chester. For the first set of modifica- 
tions described, this will be ihe HOME 
directory which begins at track sector 
5. therefore ihe value for CMDDIR will 
be $0005. If you decide to re-foimat 
your Winchester and make a sub- 
directory for ihe system commands, the 
beginning track/sector address of this 
sub-directoiy (e.g. 01/01) must be used. 
When these four labels have been 
determined, they can be entered into 
HIER between lines 49 and 50, and 
typically will look like : 

DSKCMD EQU SD22E 

DSKCMR EQU SD232 

OPNFFD EQU SD254 

CMDDIR EQU $0005 

with any different values discov- 
ered subslituted for those shown. The 
modified HIER source can now be re- 
assembled for use in the STAR1UP file 
as usual. 

EOF 
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Winchester Drive System Software 



by: Leo Taylor and Samuel I. Green, Ph.D. 



Continued from last month 

SEEK and RESTORE 

I spent quite a few evenings trying to find the best way 
to handle the seek and restore commands. The Western 
Digital hard disk controller is far more intelligent than the 
floppy interface boards I've worked with. I soon discovered 
that you never use seek command in a single tasking system 
like FLEX; the controller does an auto- matic seek when you 
do a read or wiite. The restore command, which is used often 
on a floppy, is almost never needed on a Winchester. Since 
the only read errors I've ever expeiienced with the Winches- 
ter were caused intentionally, FLEX never called the restore 
command in WINDRV. This presents one problem, the 
restore command tells the controller what seek speed to use. 
The Zeff-Graves progiam restored the drive eveiytime a 
program exited to FLEX. I didn't want to do a lot of un- 
needed leslores just to set the seek speed, so I came up with a 
'trick' to force one restoie before the first read command. 
The controller remembers the seek speed uniil powered off 
or reset. To prevent the controller from being reset often, I 
connected the controller reset (pin 39) to S volts as shown in 
the schematic. A similar modification can be made to the 
Graves board. If you don't make the modification, and your 
drive staits to seek slowly (and loudly), you can force a 
restore by entering WINFMT A followed by two returns. 

The seek speed number requires some explanation. My 
diives came without any documentation, thus I didn't know 
what seek speed to use. To my surprise, the ideal seek speed 
to use was zero. When the controller sends the seek pulses 
out as fast as it can go, a Seagate compatible drive will 
buffer the pulses and signal the controller when the seek is 
complete. Iriis worked fine wiih boih the SA-604 and ST- 
225 drives I tested. If it doesn't work with your system, the 
equate SEEKSP is in increments of .5 milliseconds. 

SELECTING INTERLEAVE FACTOR 

Those who have read my interleave article (68 MI, Oct 
85) know that the interleave factor can be adjusted to 
maximize ihe read spe#d of a disk. It will take about an hour 
to do the following: 

1. Format a volume (the shorter the better) with 
interleave of 1. 2. Copy a 100 sector text file called T.TXT to 
the Winchester. 3. Time how long it takes to do the command 
LIST T 9999. 4. Record the results and repeat Ihe process, 
incrementing the interleave factor, until a large drop in time 
is obseived. 5. The fastest time will be the optimum inter- 
leave for the list command. Use that number or perhaps one 
number higher to allow for a safety margin. 



The time to list a 100 sector file should be around 4 
seconds for a 2 MHZ 6809, or around 7 seconds at 1 MHZ. 
ITie interleave number you obtained is not a 'true' interleave 
factor. 100 sectors in 4 seconds is 40 milliseconds per sector. 
The disk rotates in 16 milliseconds, so it actually goes 
around a couple of revolutions plus your interleave factor. 

BOOTING FLEX FROM WINCHESTER 

WINSYS includes the capability to load an operating 
system from the hard disk. This bootstrap operation is 
similar to booting from a FLEX floppy: a small ROM loader 
loads a larger disk resident loader from Hack zero sector one. 
This routine then loads the FLEX.S YS file and jumps to the 
file's transfer address. This requires several steps to achieve: 

1. Add the short (64 byte) bootsirap program WIN- 
BOOT to your EPROM monitor. Set the user defined 
equates to match your system (use the same values as 
WINTABLE.LIB). The bootstrap on ihe disk can be loaded 
anywheie, set BOOTMEM to a location that will not conflict 
with your FLEX ($C500 is usually OK). 2. Set the equate for 
DEFALT in WINTABLE.LIB to zero and assemble 
WINDRV. This will allow FLEX to find STARTUP on drive 
zero. 3. Append WINDRV to the end of FLEX to make a 
new FLEX.SYS. This file must be squeezed to eliminate the 
extra transfer address. 4. Copy your new FLEX.SYS onto 
your first volume (usually A) and link it. The LINK com- 
mand will wiite the stalling disk address of FLEX.SYS into 
bytes 5 and 6 of the bootstrap. 5. Try your ihe new command 
in your monitor. The EPROM program should load ihe 
bootstrap into BOOTMEM, and that program should load 
FLEX. Total time is under a second if the disks arc up to 
speed. My drives take 18 seconds from a dead start. 

THE LITTLE THINGS THAT COUNT 

I. Winchesters under FLEX do not read much faster 
than properly interleaved floppies, but they write many times 
faster. This is due to faster rotation speed and lack of verify 
after wiite. 2. Though not intentional, WINSYS will operate 
with two drives of different sizes. Lets say you start out with 
a S meg drive, then add a IS meg unit. Make the larger unit 
the lower number drive, and set TRACKS to match the 
larger drive. The volume sizes should be chosen to fill the 
larger drive then continue on ihe smaller drive. Remember 
that the software will not be able to check for the last volume 
exceeding the size of the smaller drive. 

3. The parking area is actually disk space that the maker 
of the drive does not certify as usable. I've found I can 
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'cheat' and format my 160 track drives 
for 180 (recks and paik the heads at 
(rack 182. 4. When the controller is 
reset it selects drive number zero. 
Unfortunate] y, this lights up the LED 
on that drive until WINSYS turns the 
light out by selecting an unused diive. 
This can be avoided by jumpering your 
first drive to select as physical drive 1. 
5. After having a silent computer for 10 
years, I can't stand the noise from the 
Winchester motors and fan. The 
enclosed interface schematic includes 
an extra IC to implement a software 
power on/off line. This can be used to 
drive a solid slate relay to control the 
Winchester. W1NPARK will turn off 
the motors by writing $80 to WCYLH. 
A short program can write $00 to 
WCYLH to power up. This is the 
second address of the pott, and ihe 
upper bits are noimally unused. 6. The 
controller must be told by WINDRV to 
turn off the LEDs after every operation. 
A side benefit of this is you will be able 
to tell what the drive is doing by the 
flashing LED. A seek is brightest, a 
read is dimmer, a write flickeis. 7. The 
software expects Ihe controller com- 



mands to be positive true, not inveited 
as in the Graves software. Swap the 
buss •ransceiver between 74LS640 and 
74LS24S if you are currently using 
inverted data. 8. As mentioned by 
Giaves, ihe Winchesters appear to have 
a low error rate. WINDRV checks and 
reports errors, but does not verify after 
writes. WINFMT does not have any 
logic to take bad sectors out of the free 
chain. I've never encountered an error, 
but if you do there are two alternatives. 
The TSC utility FLAW can be used lo 
remove a bad sector from the free 
chain. Or, you can remove bad sections 
of the disk by creating a dummy 
volume over ihe bad spot. Remember, 
if a sealed drive develops a bad track, 
you can't replace the disk! 9. WINDRV 
compares Ihe track number in a read or 
write command to the size in tracks of 
that volume, returning an error if too 
high a track is requested. This prevents 
a tunaway program from clobbering a 
track on a volume other than the one 
assigned. 10. Since most systems 
(including OS-9) insist on formatting a 
drive starting at track zero. WINSYS 



provides a means of using a diive for 
two operating systems. Note the first 
volume in EXAMPLE B3, which is 80 
tracks I've reserved for OS-9. 1 1 . A 
CRC disk can't be read with ECC 
enabled, and vice versa. 12. 1 have not 
found an 8 head drive to test, but it 
SHOULD work. There may be a 
problem with some softwaie accessing 
sector 0. 

WRAP UP 

1 hope you enjoy using these 
programs. Due to the small number of 
FLEX users who can 'BETA TEST* 
the software for me, there is always a 
chance for a bug or two to pop up. Lei 
me know if you have any problems, 
and keep in touch to get any updates I 
make as time goes by. 

I'd like to thank Robert Zeff. 
David Graves and Phil Gunsel for the 
early Winchester programs that inspired 
WINSYS. 

Leo Taylor 



EXMtPIXfl OF TUUXS AH) REPORTS 



>» £XAHBl£ Al <« 

DEFALT EQU 3 DRIVE FOR FIRST VOLUME 
DEMY ECU 10000 TIME OUT DEWY 
DRV1ST ECU FIRST PHYSICAL DRIVE 
DRVORC EQU JE600 DRIVER GOES HERE 
ECFIAC EQU SOO 0-CRC S80-ECC IND1002) 
HBASE EQU SEO10 FIRST ADDRESS OF PORT 
HEADS EQU 4 DEFAULT HEADS/DRIVE 
IHTERL EQU 16 DEFAULT INTERLEAVE 
KAXDRV EQU 3 HAX LOGICAL DRIVE NUK 
NODRIV ECU 3 SEI£CTED FOR LIGHTS OUT 
OFFSET EQU SOO USED FOR SPLIT PORT 
PRXTRK EQU 181 PARK HEADS HERE 
PRCCKP EQU 32 PRECOMPENSATION 
SEEKSP EQU SPEED NORMALLY-0 
TRACKS EQU 160 TRACXS PER DRIVE 

SIZA EQU 30 
SIZB EQU 70 
SIZC EQU 57 
SIZD EQU 00 
SIZE EQU 00 (REMAINING EQUATES ARE 00} 

>» EXAMPLE A2 <« 



Volume Nam (CR aborts) : VOLUME-A.NEH 
Volume Nunbar (0-6SS3S) : 321 



Track belrtg formatted 
30 

Track being linked 
30 



>» CXAMPLB A3 <« 



VOL NAME EXT SIZ VOL NAME EXT 
A VOLUME-A.NEH 30 B VOLUKE-B. 

C VOLUME-C.TST 57 D 

0— 1— 2— 3-A 

Enter drive number and volume letter: IB 



SIZ 
70 



VOL DRV TRK SIZ 
A 30 

C 102 57 



VOL DRV TRK SIZ 
B0 31 70 

D - - 



Vol urn* letter to format : A 

timber of itirfacva (1-8) : 4 

Interleave factor (1-31): 16 

Original name and number: VOUME-A.EXA 123 



>» EXAMPLE fll <« 

DEFALT EQU DRIVE FOR FIRST VOLUME 
DEIJUT EQU 6500 TIME OUT DELAY 
DRV1ST EQU 1 FIRST PHYSICAL DRIVE 
DRVORC EQU *CA9b DRIVER GOES HERE 
ECFLAC EQU S80 O-CRC S80-ECC (WD1002) 
HBASE EQU SE010 FIRST ADDRESS OF PORT 
HEADS EQU 4 DEFAULT HEADS/DRIVE 
IKTERL EQU 1 DEFAULT 1NTER1£AVE 
HAXORV EQU 9 HAX LOGICAL DRIVE NUN 
HCORIV EQU 3 SEI£CTED FOR LIGHTS OUT 
OFFSET EQU SIC USED FOR SPLIT PORT 
PRKTRK EQU 181 PARK HEADS HERE 
PRECMP EQU 32 PRECOMPENSATION 
SEEKSP EQU SPEED NORMALLY-0 
TRACXS EQU 180 TRACXS PER DRIVE 



SIZA EQU 79 OS-9 
SIZB EQU 02 BASIC 



• SYS 1 
.6 AS 1 
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size 
sizo 


EQI) 
EQU 


20 C-SOURCE 
OB DICTIONA 


.C 
RY 


1 
1 










NAM SQUEEZE . CUD 
OPT PAG 


SIZE EOU 


04 EDITOR 


.STY 


1 










PAG 


SIZP 
SIZG 


EQI) 
EQI) 


OS PLEXSORC 
20 SOURCE 


ASM 
ASM 


1 
1 










■ SQUEEZE FII£ COMPRESSION COMMAND. 


SIZH 


EOU 


04 WINCHSTR 


.ASM 


1 










• SQUEEZE IS USED TO REMOVE EXTRA SPACE 


SIZI EQI) 04 ILEX-9 
SIZJ EOU 04 PICTURE 
SIZK EQI) 01 LIBRARY 
SIZL EQI) OB LEOBUG 
SIZM EQIJ OB HORESPAC 
SIZN EQI) 67 WORKDISK 
SIZO EQIJ 10 0S-9M0RK 


.SYS 
.PIC 
.LIB 
.ASM 
.XXX 
.ASM 
.ASM 


1 
1 
1 
1 
1 
2 
2 










• FROM A FILE. FILES THAT WILL BOilFIT 

• PROM SQUEEZING ARC THOSE THAT ARE MADE 

• WITH APPEND. OB OR THOSE WHERE DISKEDIT 

• HAS USED TO NULL OUT PART OF A PROGRAM. 

• THIS PROGRAM WILL BE OF BENIPIT IF YOU 

• HAVE A LIMITED AMOUNT OF SPACE ON YOUR 

• SYSTEM DISK AND KANT TO SQUEEZE EVERY 


SIZP EQII 
SIZQ EQII 


04 PICTURE 
02 BASIC 


.PIC 
.BAS 


2 
2 










• IAST SECTOR OUT OF IT. 


SIZR EOU 
SIZS EOU 
SIZT EQU 
SIZU EOU 
SIZV EQII 
SIZH EOU 
SIZX EQI) 
SIZY EQII 


20 C-SOURCE 
20 SOURCE 

oe leobug 

04 EDITOR 
04 FLEX- 9 
04 WINCHSTR 
26 HORESPAC 
00 


.C 

.ASM 

.ASM 

.STY 

.SYS 

.ASM 

.XXX 


2 
2 
2 
2 
2 
2 
2 










• IF TWO OR MORE FILES HAVE BEEN APPENDED 

• THERE IS A GOOD CHANCE THE NEWLY MADE 

• FILE IS A SECTOR LONGER THAN NEEO BE. IF 

• THE APPENDED PORTION OVERLAPS PART OF THE 

• ORIGINAL (EG ADDING NEW DRIVERS TO FLEX) 

• THAN THE ORIGINAL SECTION CAN BE NULLED 

• OUT AND THE SPACE RECOVERED WITH SQUEEZE. 

• ANOTHER EXAMPLE IS NULLING OUT THE TEXT 


SIZZ 


EQ" 


00 
















• HEADERS AT THE START OF SOME PROGRAMS AND 












>» EXAMPLE B2 <« 




• USING SQUEEZE TO RECOVER THE SPACE. 


VOL 
A 


DRV 


TRK 




SIZ 
79 


VOL 

e 


DRV 
1 


TRK SIJ 
60 2 






* 

• CALLING FORMAT: 

• 


c 




63 


20 




3 


: 


104 e 






• SQUEEZE FII£NAME.EXT WORK DRIVE 


E 
C 




113 
124 


4 

20 




P 
H 


1 

1 


lie s 

145 4 






• SQUEEZE 2. FILENAME. EXT DRIVE 2 


I 




ISO 


4 




1 


5 


155 4 






■ THE ORIGINAL FILE WILL BE RENAMED TO 


K 




160 


1 




L 


: 


162 S 






• .SAK AND THE SQUEEZED FILE WILL HAVE 


M 




171 


s 




H 


2 


67 






• THE ORIGINAL NAME AND EXTENSION. NOTE: 







€e 


10 




? 


2 


79 4 






• THE EXTENSION IS REQUIRED TO PREVENT 




s 




64 

loe 


2 

20 




r 


2 
2 


97 20 
129 e 






• ACCIDENTAL SQUEEZING! 


u 




136 


4 




t 


2 


143 4 






PAG 


w 




146 


4 




X 


2 


153 26 




( 


• FLEX EQUATES 

• ONLY ONE EQUATE NEED BE CHANGED FOR 6609. 

* 

FLEX ECU SA0O0 USE SCOOO FOR 6609 












>» EXAMPLE BJ <« 




BUFPNT EQU FLEX* SCI 4 
WARMS EQU FLEX«SD03 


VOL 
A 

C 
E 


NAME 
OS- 9 
C-SOURCE 
EDITOR 


EXT 
.SYS 
.C 
.STY 


SIZ 

79 

20 

4 




VOL 

B 
D 

r 


NAME 
BASIC 
OICTIONA 
FLEXSORC 


EXT 
BAS 
RY 
ASM 


SIZ 
2 
8 

s 


PSTRNG EQU FLEX*SD1E 
GETFIL EQU FLEX»SD2D 
RPTERR EQU FLEX+SD3F 
FMS EQIJ FLEX+S1406 


C 

I 


SOURCE 
FLEX-9 


.ASM 
.SYS 


20 
4 




H 
J 


HINCHSTR 
PICTURE 


ASM 
.PIC 


4 

A 


ORG FLEXtSlOO 
SPC 3 


K 
M 


LIBRARY 
HORESPAC 


.LIS 

.xxx 


1 
8 




L 
N 


LEOBUG 
WORXDISK 


ASM 
ASM 


8 
67 


• START OF PROGRAM 




s 

u 
w 

0— 


0S-9W0RK 
BASIC 
SOURCE 
EDITOR 
WINCHSTR 
I— 2- 


.ASM 
.BAS 
.ASM 
.STY 
.ASM 
- 3— 


10 

2 
20 

4 

4 

4- 




P 
R 
T 
V 
X 
5-G 


PICTURE 
C-SOURCE 
LEOBUG 
FLEX-9 
MORESPAC 
6-L 7-H 


PIC 
C 

ASM 
.SYS 
SPC 

s-w 


4 

20 
8 
4 

26 
9— 


START BRA START2 
VN FCB 2 VERSION NUMBER 
COUNT FCB BYTE COUNTER 
TEMP FOB 

FIAG FCB FOUND STARTING ADDR 
SPC 1 


Entsr dr) 


ve numtfer 4 


id volime lacier: 4E 






START2 LDX BUFPNT 






















STX TEMP TO BE REUSED 


+♦+ 




















IDX IFCB2 POINT TO DESTINATION FCB 

JSR GETFIL 

BCS ERROR 

TST 12, X ANY EXTENSION? 

BNE EXTOK 

JMP EXTERR 

EXTOK 1DX TEMP 
STX BUFPNT RESTORE POINTER 
LDX tFCBl POINT TO SOURCE FCB 
JSR GETFIL REREAD FILE NAME 
LDX TEMP 
STX BUFPNT 

LDX «FCB1»49 SCRATCH BYTES AREA 
JSR GET FILE 
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LDAA I'B 8AK EXTENSION 


BINARY LDAB »SFF 


STAA 12.X 


STAB FLAG INDICATE BINARY 


LDM I'A 


STAB FCB1+S9 TURN OFF COMPRESSION 


STAA 13,X 


STAB FCB2*S9 


LDAA I'K 


LDAB 11 


STAA 14, X 


STAB COUNT 


IDX IFCB1 


BSR WRITE OUTPUT 2 


LDAA 113 RENAME FUNCTION 


LOAB »3 OUTPUT AOR AND COUNT 


STAA 0,X 


STAB COUNT BYTE COUNT 


jsr ms 


BSR REDWRT 


BNE ERROR 


STAA COUNT BYTE COUNT 


LDX IFCB1 SOURCE FIt£ 


BSR REDWRT OUTPUT DATA BLOCK 


LDAA tl 


GETYP2 BRA GETYPE 


STAA 0,X 


SPC 3 


jsr ms 


• START ADDRESS SECTION 


BHE ERROR 


a 


CIJ» 0,X SET FOR READ 


STRADR JSR FMS CET START ADR 


IDX IFCB2 


BNE ERROR 


LDAA 12 


STAA TEMP SAVE ADR 


STAA 0,X 


JSR FMS 


JSR FMS OPEN FOR WRITE 


BNE ERROR 


BHE E*J(OR 


STAA TEMPtl 


CLR 0,X SET FOR WRITE 


BRA GETYP2 


CLR FLAG DEFAULT TO TEXT 


SPC 3 


CETYPE IOX IFCB1 


• READ AND WRITE SECTION 


JSR FMS 


■ READS THEN WRITES BYTE 'COUNT' TIKES 


BNE ERROR 


■ 


TSTA NULL7 


MDWRT LDX IFCB1 READ FILE 


BEO GETYPE 


JSR FMS GET BYTE 


CMPA 12 BINARY FILE ? 


SHE ERROR2 


BEO BINARY YES, BINARY FIIX TYPE 


SPC 1 


OHPA IS16 STARTING ADDRESS? 


WRITE LDX IFC82 WRITE FILE 


BEO STRADR PROCESS STARTING ADDRESS 


JSR FMS WRITE BINARY BYTE 


JHP TEXT NOT OR 2 OR 16 


BNE ERROR2 


SPC 3 


DEC COUNT 


• MULTI-PURPOSE ERROR SECTION 


BNE REDWRT 


* 


RTS 


ERROR LDAA 1,X GET ERROR NUMBER 


SPC 1 


CMPA »§ IS IT B? 


ERROR? INS FIX STACK 


BNE ERRBAD ERROR B IS EOF 


INS 


TST FLAG 


JMP ERROR 


BEO ERROK 


SPC 3 


LDAA IS16 STARTING ADDRESS HARK 


• TEXT FILE PROCESSING 


LDAB 11 


■ 


STAB COUNT 


TEXT BSR WRITE WRITE FIRST CHARACTER 


BSR WRITE 


TI/OOP LDAA 1255 MAXIMUM COUNT 


LDAA TEMP 


STAA COUNT 


INC COUNT 


BSR REDWRT 


BSR WRITE 


BRA TLOOP LOOP TILL REDWRT EXITS 


LDAA TEMPtl 


SPC 3 


INC COUNT 


* MESSAGES 


BSR WRITE 


• 


BRA ERROK 


NOEXTK FCC 'EXTENSION REQUIRED' 




FCB 7,4 


ERRBAD JSR RPTERR 


i 


ERROR LDAA ISD4 CIOSF. FUNCTION 


FCB1 RMB 320 


LDX IFCB1 


FCB2 RMB 320 


STAA 0, X 




JSR FMS 


END START 


LDAA l»04 CLOSE FUNCTION 




LDX IFCB2 


♦ ♦ ♦ 


STAA 0,X 




JSR FMS 




WARKS2 JMP WRMS 




EXTERR LDX INOEXTM 




JSR PSTRNG 




BRA WARHS2 




SPC 3 




' BINARY FILE SECTION 

t 
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By: All of us 



MICR&NICS 



Microcomputers ■ Hardware ind Software 
GIMIX« Silo. Service >ndSupl»ti 



Dear Don, 



m«J LYNN AVENUE. 
ABSOTSFORD. 
BRITISH COLUMBIA 
CANADA. V2S 1S2 



Here's a little trick that I'm sure every BASIC 
programmer will find very useful . It involves the PFR 
function of XBASIC, normally one of the most useless 
of all of XBASIC s functions. 

Here's how it's supposed to work. I<et's say you have 
a program with lots of references to a variable named 
A%. By typing in 'HUNT PTR<A%>' in response to the 
READY prompt, XBASIC will return an address (in 
decimal), which points to where the current value of 
A% is stored on the Variable-Stack. Now suppose you 
wished to diange the value (from 5, let's say, to 7), 
you could enter ' DPOKE xxxx,7', where xxxx is the 
decimal address just identified, this is about the 
only use for the PTR function that I can see, but as 
it's so much easier to siJnply alter 'A%=7', why bother 
with PTR at all? On the other hand, if the variable 
were Floating-Point (let's say A), the only \a/ ho 
change Its value is via the primitive 'A=vbatever ' . 
Similarly with String-variables! 

However, on the Stack where all these variables are 
stored, 2 bytes below the variable's value is the 
variable-name. So what? you ask. 'Hie important thing 
is that, even though you may have 1000 references to 
A% scattered throughout your program, this la the 
QU plaoe where its oaae 1b raxxxkdl The individual 
program-lines simply refer to a particular Stack- 
location to identify the name of a specific variable. 

Therefore, if, in the interests of meaningful 
variable-names, let's assume you wish to change A% to 
B%, it's only necessary to enter 

PCKE PTR(A«)-2,66 

(where 66 is the decimal equivalent of the HEX-ASCII 
42, ie, B) , and hey prestol — ALL references to A» 
in your program have now been changed to B% ! 1 
Further, unlike using an editor, it dr*e net change 
AA«, BA%, etc., into AB», BBS. 

Be careful if you wish to change A% into BC%. You 
would now have to 

DPOKE PTR (A») -2,66*256 + 67 

to ensure that 'B 1 gets stored in the most-significant 
byte, and 'C in the least significant. Note that we 
use DPOKE (not POKE) to store the 2 characters! 

Similarly if you wish to go fran a 2-character name to 
a single character, let's say to reverse the above 
process and change 8C* to At, we'd enter 

DH3KE PTR(BC«> -2,65*256 



'Cmtriiuu Tjptfung l>p«i Tithing", DMW K6 



to ensure, not only that the single-character 'A' 
occupies the MS-byte, but that a NUL (ie, 00) gets 
stuffed in the OS-byte to cancel the former occurrence 
of 'C. 

Of course, we're not restricted to Integer variables 
alone. We can apply exactly the same process to 
change the name of a Floating-point variable, or even 
a String. Due to the structure of the Stack, however, 
we cannot change the variable-type. That is, we can't 
change MS to M%, or X» to X. Neither will this 
procedure work for subscripted variables - in fact, I 
wouldn't recommend even trying it, unless you're 
prepared to risk blowing up your program! 

The major differences between RBASIC (carcnenc ing with 
Version 2.4) and XBASIC are that RBASIC's PTR function 
points directly to the variable-name (so it's not 
necessary to subtract 2 from the returned address) , 
and also works for all variables, whether subscripted 
or not. Naturally, if you wish to point to the 
variable-value of unsubscripted integer or floating- 
point variables you'll have to add 2 to this address, 
but why anyone would wish to do this I just can't 
imagine 11 Has anyone out there ever used PTR for any 
useful purpose, other than idle curiosity as to how 
BASIC stores its variable-values? 

Anyway, you now have a GLOBAL VARIABLE- NAME CHANGER 
for unsubscripted variables, which you can use 
directly from within BASIC itself. Hope you like itl 



Don Willians, 

6B Micro Journal, 

5900 Cassandra Smith Road, 

HixBon, TM 37343 



Sincerely, 

M 

R. Jones 
President 



PS Have you seen Peripheral Tech's flyer, which 
mentions confari son- tests between the 68000 version of 
RBASIC on their PT68K-2 and Microsoft's GWBASIC 
running on an IBM AT? RBASIC is five to t«?n tii-ra as 
fastm wowl I can't believe it myself , especially 
as I haven't even begun to optimise it for speed yetl 
HfS It e**ss wiTT*o»/r sa^i** t>*at t»u sha/u> ie wf*h 

AiJQffAtrY *. Vfifi { 



D*ar Don, 



D,BptnteT Mala 

fti ch(MntMor th 
H»t-t«ord»Mr- 

Unit ad Klngdo* 



Hmr» 1m >noth*r llttla contribution tor tha BIT BUCKET. 
Bom long May back »oe » body oava a* a utility ntaxl B^tltfT. 
Baalcally tMi taaa* a Una ©* taut fro* tha fcvytioard and 
output a It dlfevctly to th« printer. Nothing BUCK really, but 
••nan 1 got my PTfraK-2, thav-a *** nothing Lib* thia 

distributed «lth tha etandtrd •oft«e*r«. So, I hacked togatha*- 
• looh-iUke. 



] find thla uaaful Mhan 1 Man t to addraaa tn tnvtlopt, 
or aake a I aba I . It iuat turn th« prlntar Into tn* 

equivalent of a typewriter, alaple but affective, aa all t_f>e 
beet Idaea trt. 1+ tha guy who wroti the original coda la 
at 1 I 1 a rmmdmr I hop a ha I a not offended by ety ef forte. 



Pink ^ 
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LISTIHI OF FILE 



I 

8 



OOOOI 


00000000 




00002 


00000000 




00003 


00000000 




0000* 


oooooooo 




oooos 


OOOOOOOO 




0000* 


oooooooo 




00007 


oooooooo 




opooe 


oooooooo 




oooot 


oooooooo 




00010 


oooooooo 




0001 1 


oooooooo 




OO0I2 


oooooooo 




0OOI3 


oooooooo 




0001* 


oooooooo 




00013 


oooooooo 




000 It 


oooooooo 


0000*032 


00017 


oooooooo 


0000*02C 


000 It 


oooooooo 


0000*033 


000 19 


oooooooo 


0000*03* 


00010 


oooooooo 


0000*033 


00021 


oooooooo 


0000*000 


00022 


oooooooo 


0000*01 E 


00023 


oooooooo 




00024 


oooooooo 




00029 


oooooooo 




00026 


oooooooo 


00000260 


00027 


oooooooo 


OOOOOCFE 


00021 


oooooooo 




00030 


oooooooo 




00031 


oooooooo 




00032 


oooooooo 




00033 


oooooooo 


oooooooo 


0003* 


oooooooo 


60000002 


00033 


00000004 


00000004 


0003* 


00000004 




00037 


00000004 


•ooo 


OO05I 


00000006 


43EE0CFE 


phusi 






0003* 


ooooooo* 


1301000001 41 


00040 


00000010 


422E0CFE 


00041 


00000014 


*03* 


00042 


0000001* 


49F*003I 


00043 


0000001* »033 


00044 


0000001 c 




00043 


000000 1C 


1S3CO02* 


00046 


00000020 


*033 


00047 


00000022 


»033 


00041 


0000002* 


*033 


00049 


00000026 


*02C 


00030 

R- 

00031 


00000021 


611* 


0000002* 




00032 


0000002* 


1214 


00033 


0000002C 


I2390000000D 


00034 


00000032 


*»EI 


00033 


00000034 




0003* 


00000034 


43EE0CFE 


If 






«00f7 


00000031 


121*0113 


OOOW. 0000003C 


MIE 


00059 


00000031 
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• 'OP' HILL 01RECTLT PRINT « LINE 

• OF 1EI1 10 THE PRINTED. 
i 

• JOHN PIu - JUNE 1938 - Sjs*a on I at 9 FLI< UIlllK. 

• tource urrhfiC«ft. 
* 

• NOdlMtd to Jvold u«« 0« &ETH1T «>ifc6 tuBfi'tttv* 104C94 

• JULT 19BI - JOHN PlNf 
• 

• »T«T»i! dp in* trt no •rgnitntt 



• 8>»00S EOU*TES 



MIT1NI OF FILE 



Of 



OCNTRL 


EOU 


1*032 


INLINE 


ESU 


>«02C 


PU1CH 


EOU 


>«033 


PCRLF 


EOU 


»A03« 


PSTRNS 


EOU 


*«033 


VPOINT 


EOU 


t*000 


MADnsr 


ESU 


■AOIE 



• DAT* ME* EOUATES 



LINIUF 
P*USEI 



EDU 
ESU 



■ T**I 
VEI810N 



ORB 
IK* 



DC 
LE» 



60S 
337* 



•0000 
IEIIN 

0100 . 



POSITION IRDEPENDANT 



"ORE 



WVE.I 

CLR.I 

DC 

LE* 

DC 

HOVE. I 

DC 

DC 

DC 

DC 

IIR.S 



NOVE.I 
crlP.l 

INE.S 



LE* 



HOVE. I 
DC 



VPOINT POINT TO USRFCI . 

PRVSEK**),*! SET ClfflRERT ST*TUI OF OVTHfl 

l*II,PS*YE SAVE IT LOCM.LT 
P*USEI(**1 CLEM OUTPUT P*USE 
PCRLF SPACE THINGS OUT 

HEADER (PC), M LOAD RVIER 
PSTRNI SEND IT TO TERNINAL 

442*, 04 LOAD A '»• 

PUTCH 

PVTCH 

PUTCH SENO IT TO FORH A «E« PROMPT ••• 

(■LIME 

BET OC NON CHECK IT **D PRINT IF NOT C 



1»1>»,DI GET SOKE RODE TO PRINT 

400,01 HAS THE END OF LINE SEEN REACHED? 

PRONPT TES?,PUT UP * NEN PROMPT 

P*USESI*«l,*l *LL HONE, GET ADDRESS OF PAU 

PSAVEIPC1.1AII RESTORE THE OLD P*USE 
»*RHST AND EI1T TO Sk»DOS 



000*0 0000003E *3EE02*0 

000*1 00000042 1219 

♦00*2 000000*4 0C01000D 

0006} 0000004S *700FFE* 

000*4 0000004C 

000*3 0000004C SIJCfFFJ 

000** 00000030 M32 

000*7 00000032 

0*0 kt 00000032 1 10 1 

000*9 00000034 »0J3 

00070 000000S6 1219 

00071 0000003S OCOIOOOD 

00072 0000003C 6*F* 

00073 0000003E ISO! 

00074 000000*0 *OJJ 
00073 000000*2 II3C000* 
0007* 000000*6 *033 
00077 000000*0 
00071 000000*0 3B3CFFF0 
00079 0000004C *032 

00010 000000*E 4E73 

00011 00000070 
000S2 00000070 

00013 00000070 

00014 00000070 3I33494340203032494E HEADER 

340D0* 

00013 0000007D 433*433239204C494E43 

400,10* 

2049S32033434E342034 
4F20344043203032494E 
34433220414*34433200 
0* 

OMI* 000000*6 2732433433324E272049 

MSINI',400,40* 

3320303243333343442E 
20433D493420344F2033 
4t2k*44F332042392030 
32433333494E470D0* 

00017 000000D7 2732433433324E272041 

A 

34203440432033344132 
34204F4A20344I43204C 
494EI30D0A 

00011 OOOOOOFA 202D2S2020202D2D2D3A 



DATE 07/03/01 PMC i 2 

LINIUf <•*!,*! 

1*11-., 01 ROVE THE NEIT IrlC 

iioo.oi is it • at? 

till IF SO »ll 10 DONE, DO Ellt 

44FFF2,D< L0*0 NEN OUTPUT OEVICE * 
OCNTRl OUTPUT SNITCH, ID THE PRINTER 

01,04 HOVE THE CU*RE*T CH*MCTER «N0 

PVTCH OUTPUT IT TO PRINTER 

<«11»,D1 *N0 SET THE NEIT CM***CTE« 

1100,01 IS IT • CR7 

PRINT N07, SO PRINT IT 

01,04 »ES? SO PRINT C*IF 

PUTCH 

110*, D4 *KD SEND * LINE FEEO TO PRINTER 

PUTCH 

44FFF0.D4 LOAD TE*rt*«L DEVICE 6 
OCNTRL OUTPUT SNITCH, OACK TO TERMINAL 
•NO RETURN 



> HESSABES AND HEROERS 

DC. I -OtllCC PRINT", (00, 10* 

DC! 'EVERT LINE IS SENT TO THE PRINTER *FTER' 



TINE 2ll 


39i3* D 


OCT 


LE* 




NOVE.t 




cnp.o 




tEO 


* 




SEND 


ROVE.N 




DC 


* 




PRINT 


NOVE.I 




DC 




NOVE.I 




CRP.I 




■NE.S 




NOVE.I 




DC 




NOVE.I 




DC 


• 




RESET 


ROVE.N 




DC 


RETURN 


RTS 



RETURN' IS PRESSED. CUT TO SKOOS IT PR 



RETURN *T THE STMT Of THE LINE', 400,40 



DCS 



2D2D2D2020202D2D203* 
202D2S2D2D2D202D2D3* 
20202D2I2D20202D2D3* 
2D202D2D2020202D2D3* 
2D2D2D2D2D2D2D202D3* 
2D2D2O202D202D20203* 
2D2D2D2D2D2D2D2D203* 
000*04 
000S9 000001 4D • 

00090 000001 4D • 

00091 00000I4D . < SAFE KEEPINB 

00092 00000141 00000001 PSA'Jt - OS. I 
0009S 00000I4E • 

00094 00000 I4E 00000004 END 

000 6vM«a ErfOMt) 



,40D,tO»,t04 



THE SOfT CENTRE OPKK U.S. OPPICES 



. RESS 
RELEASE 



As a result of increased ealea In the U.K. and Europe of. bow* 
of the moat excltlna products to hit the OS-9 world, the Soft 
Centre announces the opening ot Windsor Systems. Windsor 
syatenn is owned by Steven Weller, Steve Is a senior software 
engine*! ami n«b tMjt-r. o»ploye<t by the Soft Centre for the last 
tour years. 

Software products now available in North America with full 
suppor t l nc 1 ude : - 

CKS - Graphical Kernel System to level 2c. 

DISK CACHING - make your computer run three tines Canter, this 
is the typical performance improvement on a 66020 Computer 
with hard disk. 

SCSI - Device Driver System for using SCSI with OS-9, offering 
separate logical and physical drivers, the SCSI driver system 
creates a flexible interface for all your 9CSI drivers. 
Support-* SCSI r A r»inds disconnect 2nd reconnect- 

TAP! ARCHIVING - integrated bulk atorage archiving utility, 
incorporating UNIX Tar and Cplo compatibility. 

VBF - Variable Block Pile nanaqer, a communications orientated 
file manager which brings out the best in multichannel 
intelligent interface cards. 

•JCP - ttulti-Characted Pile Manager is the ssme as VBF, but 
additionally allows the use of line editing functions on read 
line and write line. 

VEVAMKT - Vivanet is a serial port driver for the Network File 
Manager . 

NATO - Hath trap handler and oath library for the 68008, 6B000 
and 6(1010 using the MC68881 as a peripheral. 

For sere information contact :- 



Windsor Systems 
2407 Lie* Kiln l*nm 
Louisville 
Kentucky 40222 
U.S.A. 



Tel: 
Faxr 



502-425-9560 
502-425-6853 



the Soft Centre 

Software Bouse 

Burr Street 

LUTON Bedfordshire 

L02 ohm sngUnd 

Teli 011-44-^82-405511 

Faxt 011-44-582-456521 



yj/WINDRUSH 



PLmS-68K ... A Complete Programming Environment lor OS-9 

Windrusri Micro Systems Limited are pleased to announce the 
immediate availability ot PL|lS-68K (Programming Language tor ^l 
(micro) Systems), a totally Integrated programming environment tor the 
Motorola MC68000 family ot Microprocessors. 

PU1S-68K is a complete programming environment tor OS-9/6BK 
system users. The product comprises a co-resident EDITOR - 
COMPILFR -and source level DEBUGGER which provide the ultimate in 
productive working environments. You can Edit a program, immediately 
call the Compiler and then immediately call the Debugger ... without 
saving tiles to disk or returning to the operating system. 

PL11S is modelled on Pascal with many ol the useful features of C 
included. Variable types range from signed and unsigned bytes through 
to 32-blt fixed and floating point numbers. The '020/881* version 
extends the range to 84-bit floating point numbers. Low level 
programming facilities, such as direct access to registers, simplifies the 
interlace to assembly language programs and operating system calls. 
The single pass compiler compiles code at 20.000 lines of source per 
minute with output code efficiency second only to assembly language. 

PLjiS was designed from the ground up to produce code lor stand-alone 
68xxx targets and as such does not cany any license requirements for 
the object code produced. The system is equally adept at producing 
modules lor an OS 9 environment A unique feature ot the language is 
the ability fo produce OS-9 device drivers and descriptors ... the last 
domain of the assembly language programmer! 

The product is available in two versions. PI41S-68K which produces 
code lor the MC68000. 008. 010 and 020 processors and PLuS-020 
which includes PL11S 68K and also produces code lor the MC68020 with 
an MC6888" math co-processor. 

For further information contact Bill Dickinson at (0692) 404086 



*K)m 



A INC 



MieroproCVUfOf Product* Group 
S501 William Cannon Ortvo Wtart 
Austin, Ttiw 7S73S-4SM 

CONTACTS 

ShemuOavcr 

Cunningham Communication. Inc 

(408) 982 W0 



DeanMosky 

Mli-iuuLU.'cssoT Products. Gioop 

<5 12) 44a 2839 



MOTOROLA ANNOUNCES 33 MHZ 



MATH COPROCESSOR 



Apollo is First to Announce Plans to lrKorpuriiE New 882 in Weettstaoons 

AUS11N. Texas. July 11 1988-*- Motorola today ennu«nooJ that ifceaompany't 
68882 (882). it* second-generation 32-bti noanng point mith oopnxuur. is now 
available ai a speed of 33 MHz. Ibt 33 MHz chip enhance* sysasn performance by 
increasing the pjocc&sing speed or rwhcniabcal oprreooru that are crucial to buueu and 
engineering environments. Apollo Computer Inc. ICftcJnufonl Mass.) taday became the 
first company *> announce a 6803Q based wurtusaaon incorporating ittc 33 MHz. 
coprocessor. 

Roattng potnt a^maaan sre used n speed muhcmadca) calculations in a wide 
range of spplicadons. A eoprocEiSi* can perform matncmoDcaJ functions- 300 tunes as Fast 
as software solutions. The 882 coprocessor is % high performance single chip used wilh 
Motorola's 68000 femily that includes the 63000. 68010. 69020 and 68030 
micropnxc&sjv* Tbc 882 coo/otto to ibe lE&E5<aod*rd for Binary Hasans; Point 
Arithmetic and offpssofnrtic and p«n companbility with its pradecendr. the 68881 (881) 
"FtoaonS-pomi functionality is botxBrbnga standard feaTure in today's cotnpwt en." 
said Murray A. Gnidman. senior vice president and eenm) manager of Motorola's 
Mjejoproctasor Products Group (Austin. Tex aiK Toe 882*s hardwncreandcoftwve 
•crmpaobilicy with the 68000 family eruuro lite pcrfomanccaiid upgrades that customers 
expect of Motorola.' 4 

Tbc 33 MHz 882 is the fern ssngk chip w break die two million Whcuavc tamer. 
fThe WhcTSYwe: U a standard benchmark thai ecus a pwaaa m or' s ability to perforin 
mathcrnadcaJ opcrmouru.) Ihe 68881, itie B82's pr rrW-i^er , was the nzn single chip 
t^iing-poin! cop KrfexAorw break i heonc million Whewone bsmer System users can 
simply unplug the 881 and rcplaac it with an 883 chip, gaining a 20 perucni performanae 
increase. Wiih optsmiaed software and die new 33 MHz dock speed, ihe 882 can provide a 
iwoiofottf n^ perforuurjce uaaraK over 0*881, The 33 MHi 882 it priced at 5708 in 
single quiniiiies arid is available 60 days at raript of wrier 



COKTACTS 

Shemaz Oavcr 

<408) 982-0400 



® 



-.tinn.Inc. 



A IMC. 



Oe«n Motley 

MicrocmxiSK Product. Group 

(512)440.2839 



AFOLUJ ANNOUNCES HIGH-END WORKSTATIONS 
BASED ON MOTOROLA'S HMO 

flOOO Cootimia n> Ptwide Ben Artec- ferfatmance fUoo 

BOSTON. July II. 1908— Mooola ual Apctfo Qxapvtcr Inc. lodjy jcindy 
vnmul die uu^uu>«aoo of Mnmli'i 68030 (030) aimiiima in two new Apotto 
waimuiam. The Saiet JJ0O Penxul Wortamiao tai Seriet 4500 ftnaiul Supa- 
w.iknw^ hotfiunlui AeKKlciujiu cimau»l(raTT»i. Abo, both wfcaakm use 
M«oro»» - i 68882 (882) Itsui^coh t nuih uunujmu . 

The Sent* 3500 ftzrat) Woikaufao it die fan color watanufcsi apeMdnt " 
fonr MlFSIoiulauoflniireakiM per ittmDviell far leu this i 10.000 TVIS.0O0 
Murtmikai on ihe 25 MHi 030 u • cam] paccuor ml 1 25 MHi 882 uuumuuiu-. 
TheSerie>4500perfon»eiicv«anaFSiMdicuinx$l9/>0O. d uovpeniB die 33 
M)iz0)0u«l>33MHz882c 
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M<«cnrfa'vl)30 pnHfato • My irrtcpwcd ncNitoaivr that drives down the 
pnix - pnfi^TTume ram of awnptAn^ ljmn* The chip is tne firv *o wajWzntor a dual 
tun wOttttcnn, CPU engine, monvy -i »<wgJi»K . and iiBUil.au cad* tod dan ache 
ORAsmsleclap. tn«Ukkm, -he 030 tmaaOSn an^ls ampatHay tviAtbcentrc 
Nfevania 68000 family line, enwrinj evy OBflVkB of ippUcBkB iuAwsc 

"With today's ir"i 1Ml v ^ Apcak> b tomtuinulng A* *» one cm* touch the 
pngg yufiMnimiLL woo pnjvvkd by tf* 6MBD fanaiY" wdipim MibiKO . vice cbunnsn 
afMi^ruta. "T^«i»«fcW be no doobttfaiihe 68000 family wiflcaaouc todoreinatt 
the woiipicfi martiet" 

TV 030 n the lawn addtoon to Mooroli'i 6H00Q family Line **mh aicliafes the 
faMHl t 6S0 10 and 6020 Afliadwj r> Quaqtcfl. a San iu*e- based nxarrh run*. 
MottnUa tvas ihhipped the moat 32-b.i fnajiMmaMD in (be world. ITtcrJeTJOOramUyu 
used id a wide range of a^pba bont such u anBaanpucra. high-end wtsuau 
business co\7npv*e» and emteifcd conttol device*. 

In IHL. Apollo brodt«:od ihe world '» ffc-fl wwtiMDQn. DNIO0. which «u 
bated on iwo 6S000 mloi^ra^Ark. [n its seven yean of developing woriuUbcns. 
Anollo ha* conanuod Id use (he 6*000 family in its fandiant, \Jwen of ApoUo'i ne w line 
of workuadon* pmen their original invcimicit in software ■*, the 030 is conaoaiible wiih 
the 6*000 family line. 

Mo«r*i^a'l*12btllk>nS<TnacDndkKri»PtodixMOrocpSoc(or (Phocnin. Am), 
which includes the MlcToonxe* hx Product* Group (AuSuo. Texas), is a division of 
MooroU.UK TV company it the target) and bnaadea supplier of s en i k^ ducnin in 
Vortft America, with a balanced portfolio of more than 50*11) dtvwxt. 



MC68000 VIDEO TRAINING SERIES COURSE DESCRIPTION 



® 



EDITORIAL CONTACT: 
>^k Hattald 



READER CONTACT 

!f«wigf Tl 



A IMC. 



INQUIRY RESPONSE: 



Torn U Ml 
IWJ) S44-8BO0 



PO 80*52073 

, A2 M07I 



NEW MCCMOO VIDEO SERIES PROVIDES 
FLEXIBLE. COMPREHENSIVE TRAINING 

Phoanlz. Arisorio, July it. IBM . • . Motown Semiconductor 
Product* Baclor ho* announced evaiebiiliy ol til flrot video 
■raining nrt>*. TIM MCMorm viooo Training Serine (WTTVl) lo *n 
ultre-eaphlettcatod vMoo naming eyetem tor in* MCM000 mkro- 
proc**oor. Th* i*rl»a lo organitad into 18 modulo*, whh gno 
video toe* par module lo oH*r th* utmost tiaiiblllty In naming. II 
aloo includes five 9iud»nt Pack* with corresponding in-d*pth 
woAoooko and een-evaiuettone. An optloAal instructor Poor and 
an optional ucaoeod Education*! Compulor Board ara also 
avail as la. 

on Utamto- ■ nu« -Old iiwnng aim, the ecnot uses ootaAul avrrvtrr-owiafwet) 
*in^>aMiiuiyir«*>nakto<n*k*yu>n*t]Mi) m* mt a, ■ rast. n».t* way lor 
toireais»r*ooM*r*ieiaYinairt>aw<jr,ordb**ninr«Tw Mnrnji^nii Th* 
onajned to « kphouoi naming i ih » w » ib . o^wb wi and acraetAvt 
arts can vaaas*/ »*ti iiasioa* aa ■ ma* own a v ia n andainwaitrawrasncuaV wads by 
1 to MoaVss > w*m n*pmn»&w»*Ou>» Tho nun *n> sko <t*oi «« * omaj 
I cvorog* lima lo nrn aifciii in* enna ■ 40 itoun. oraett *<Aidm 



UtaMX VkMo TraMng Sarin I* avalala* now »>«*^ tor •>* 1«-lapa uctaOOO VlrMO 
Tnjrang Sana* r mv tot* wtyi Bva Sajdoia Pack* and aavaadM maionaia » M.000 Tn* 
• PaAaia<ra>aakjlorti7> Tna E>>mw Conxuar bom cc«ul*»j»ana 
rruccxr »i aaata j to BIS and a coon ■■■■ « < » avaajea* lor $ss. Al orUng i* m 

VJ doaantoru&e 



To ordor In* UC4M00 VtdM Traiwg Saitaa (UTTVt). o> » anang* lor a taaMWg ot tne 
v4wxejj« a your local Moaxua um onto*, cal TraiMng < T*t**«a> Optmioro K*rnw at 
14VXI.U1.K74 





ucflMOO eaaaafcnal Conout *r Board lea 



tacit Sajoon Par* cornalra) a Caoia CkiBa. W V\pu a M iil i i i ' W n » v » th* iHaao nwtan. a 
ut''i»i » o Wonm*. * la f iiyarMtf. Pragraro a aha) Card*, mi a PMararoa ManuaJ •» anvtai 

«*rrnartn,« n «< ^u i noma and armo ragpyaa. fn — I — r~~ >tnrr -nil mil I iir |- 

aaaaonai com tt tiso aaoTt. m U S doaofiwrus , 6»»o j ry or»> Quaru, aaeauwa) am atao tvan a tw . 

Onimnal InWlueim P»* 

Th* iramoar Pat* corupw an k»»-j» rjuu* and motor copi** « »o4fc«* djorajra fromwnlchlo 

mafca '.rvwnum*. n aaam to it» mi K iuai Wad « a» Saxax Pack tnam or* aa» pnnaa wtn 

ma 



Cornnm.r tori 



TtwCtwnai EOKsnaaiua "nTfirii nuailnamaalajainiii iiiiiima iinOMi llnlati 



ShmuDim 
Cunnwiham C( 
(atMtgfcoafiO 



(JlII44D-a» 



Pmhru Groan 



MOTOROLA AHHOVMOS SOFTWAKZ CATALOG 
FOR MM AND (IBM MICRO P«tX3S3D»S 



Caulog f«lH Largs* Utat Softwart Base 



AUSTIN. Taut. July 23. IMS — Mcaoral* toary ——---' dw a aofrvarc 
catoloi for tu ttfJGD and 6)000 uia-nvuiaanr taotool il do* arailatac. TVaibt 
caUod TVSoafK. Hats more than Mpa j Plo an. prodiaak. t Lpnjmnii i g the Urgea himnrti 
ban onibk fcrfrwmre 

TV Source Is pitfUaaJ apacificalty for un*nt aVrcinorja. ryfasni onigDcn 
and end u»er» Itdescrlbeia wide rugs ofccanrJai tyvam. Ian n»fc ao/l ware, 
flcvtl^orcni nippcn •oftwara, and Bftwarc agpllcajana for grao*i<x caaniracaiiaTii 
andtwrinaa. The catalog aloo lochirka d aa Jl yuu iu of emulation nAwtrr pn»tict> that 
allow Mcaotou cuoccnm a rag MS-DOS agpHcaoWi on iWm and 6attt) cyrasn. 

' The 68000 uunUy hu crourd a bugs 32-bit aafrwarc but: thai cirrcn tbc brcauxs 
bale of HSWart ajaaialljnj. " aid Marray A Gcldjr-n. acmor vix pnsaacol and general 
manager of Moaanla '» Majiaauuaor Preduai Oraep (Acuta. Teulli The inereaang 
aanVari •MVpon (or ihe U000 boosa oor lead ia the J2-*lt a^rware <i«r»n andfiveievr 



arc th^ij^wg a^rnrae productt for oV MUX). 

Bl(B. AaaoMeaal ra April ngg, the W0OO d a 
baat that powers sriaBBai iotfaec 




faeaity cossisB of oat 6VQ0. 10. (CO and 030. 
a San Jose-based «sk±> firm, the rjaOOO farraly has the larfcn 
32-t*i t arda an. and aa f h a ajt base. The rrrnnarihtar* of she QMProjfqpeBBra ■ 
the oUtDO famUy aUDws kirware to easily rnifnufc froro one proetonr loanpther. 

The Source Mas aafrwan: packages that support IMkanrout's 6Rtg 1 and 688S2 
iMtinn pontieadl eutmria i i and DSD 68431 paged rraancay QBUUUjBBKZtt uott. The 
caauog at available at no charge fnajo. Bk snoavaU Majuuiiaxsjur Pitahicrs Group. To 
ohoun the cniog. wrtK Moorols Uemin CHiirtboOon Cenio.P O, Bcw209l2. 
, AZUO>o.onie) nacahor BH506 — The Source. 
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GEnERflL 



miCRD SVSTEI71S 



INCORPOHATCO 



Far further information *, 

Saw Bowman (714)625 5475 



FOR IMMEDIATE RELEASE 

PHOTOS ENCLOS ED 
B&WandColor 

DUAL 68020-BASED 

8-CIfANNEL SERIAL I/O 

PROCESSOR FOR VMEBUS 

Montdalr, Calif, August 5. 1988 - A VMEbus board with a 32-bit. 25 
MKr 68020 CPU for rauttifrocexsingand another 68020 for independent serial I/O 
proocmn g. is now available from Gotaai Micro Systems Inc. 

lheGMSV07-S]O'lpn>viA3 agbt muldpnxncnl idal channels, with up to 16 
KBytes of buffer memory per channel, controlled by m independent 68020. on a 
SAM™ {Special Application Module) nrzjanjne racdule. This allows dan to be 
wrincn to or read from tbe board through theP2 cronxrur. witliout taking up time 
on the VMEtrus.lhis$upp«ii increased system throughput while deorann g 
VMEbus traffic. 

The board also is a 68020- based CPU card with a 68881 eo- promt* for full 
32-bit operation andup to 1MByte of no- wait-oatc, dual-ported SRAM and two 
serial channels to support high speed multi-pncessui g. 

Up CO 512KByte of EPROM (128K of EEPROM) for system and for program 
codes is also available. The strand CPU provides vhe equivalent of DMA capability 
on eight serial I/O channels, which support asynchronous opsnrdon up to 9600 
baud simultaneously on all channels. 

the GMSV07-S1O-1 has a Z8536 programma blc configuration controller with 
timers and a 68155 bus interrupt manager. Using mail boxAcca don monitor 
interrupts for inter-processor signalling, it supports real-time muUiproccssin g. 

Ihe SAM local bus module allows data transfers to/from onboard buffer 

memory to external devices. This allows data lobe handled through tire serial 

channels wiihout (along up CPU tune or increasing niftc on the VMEbus. All I/O 

lines run through the P2 connector, simplifying cabling and board removal from 
the card cage. "D" connectors to march OCt or DTE conrigimnon s are available for 

RS232. RS422 or RS485 applications. 

1 he intelligent serial SAM module also adds up to 256 KBytes of onboard 
buffer RAM to that on the main board, signincan tly spcedin gup data trans fets. 
This buffer RAM on be segmented into siatcen t6KBytei, with each channel thus 
supporting data transfers at very high rates wuhou t taking CPU dare to load/unload 
the buffers Ibe SAM module can optionally include up to 256 KBytes or EPROM 

Ihe CPU board can both originate arid service interrupts on the VMEbo 
Distributed interrupt handling dynamically allocates interrupt handling Funeurais 
between processors on Ihe bus. 

The CMS V07-S1O 1 is a double Eurocard 9.2" it 6.3" (234mm a 160mm) with 
a mezzanine SAM serial I/O (nodule, requiring a single slot in a VMEbus card cage. 
For applications not requiring highest speeds, the sorond 68020 on the SAM 
module may be omitted. The board also is available for extended tern cm tun 
appataanofti. 

the GMSV07-SIO 1 is OEM priced beguoirig it $3142, is available from 
stock, and carries a two-year warrant yon parts and labor. 

Graxral Micro Systems Inc.. located at 4740 Brooks St.. Montcliir. California 
91763. telephone (714)6*5.5475, FAX 7 14 621-4400, has been providing 
reliable, high performance, designed and manufactured in the U.S.A.. 
aaaocoa purer modules since 1978, and offers a full line of modules to VMEbus 
specifications. 

» » » 




MUSTANG -020 20Mhz with 68881 . OS9 Professional Package &. C 
$3500. Call Tom (615)842-»600. 

AT&T 7300 UNLX PC, UNLX V OS, 1MB Memoiy. 20MB Hard 
Disk. 5" Drive. Internal Modem, Mouse. Best Offer Gets It. 

S+System with Cabinet, 20 Meg Hard Disk A. 8" Disk Drive with 
DMAF3 Controller Board. 1-X12 Terminal $4800. 

HARD DISK 10 Megabyte Drive ■ Seagate Model #412 $275. 
3-Dual 8" drive enclosure wilh power supply. New in box. $125 each. 
5-Sicmens 8" Disk Drive. $100 each. 

Tano Outpost II, 56K, 2 5" DSDD Drives, FLEX. MUMPS, $495. 
QUM E Q VT-102 tcrmin al. likenew, amber screen $250. or bestoffer. 

SWTPC S/09 with Motorola 128K RAM. 1-MPS2. 1 Parallel Poit. 
MP 09CPU Card- $900 complete. 

Tom (615) 842-4600 M-F SAM to 5PM EST 

*•• 

SWTPC 6809 System S709. Dual 8" drives. 8212 terminal, 128 K 
RAM. Okidata wide carriage, wilh tractor feed. Make an offer. 
(813)462-0511 or (813) 536-0018. Pete Yore. 




Apple 
Macintosh- 



S Users 



Save over a $1.000.00 

on PostScript 

Laser Printers! 

Faster - Finer Quality 

than the original Apple 

LaserWriter! 

New & Demos 

Cartrldges-new-rebullts 

-colors- 



in Chattanooga Calli 
61S842-4M0 

QMS-Aafk.rlzed 



Data-Comp Division 

CompJ« hn*ni rna. I 
l*pnllU4MrB1 ■ rim VC BO 
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THE SOFT CEMTRE 




VS. OFFICES 

As a result of increased sales in the U.K. and Europe of some of the most exciting 
products to hit the OS-9 world the Soft Centre announces the opening of 
Windsor Systems. Windsor Systems is owned by Steven Weller, Steve is a 
senior software engineer and has been employed by the Soft Centre for the last 
four years. 

Software products now available in North America with full support include:- 
.. Graphical Kernel System to level 2c. 



... make your computer run three times faster, this is the typical performance 
improvement on a 68020 Computer with hard disk. 

Device Driver System for using SCSI with OS-9, offering separate logical and physical 
drivers,the SCSI driver system creates a flexible interface for all your SCSI drivers. Supports 
SCSI commands disconnect and reconnect 



... Integrated bulk storage archiving utility, incorporating UNIX lar and 
Cpio compatibility. 

. . . Variable Block File Manager, a communications orientated file manager which brings out the 
best in multichannel intelligent interface cards. 

... Multi-Character File Manager is the same as VBF, but additionally allows the use of line 
editing functions on read line and write line. 

... Vivanet is a serial port driver for the Network File Manager. 

, Math trap handler and math library for the 68008.68000 and 68010 using the MC6888 1 as 
a peripheral. 



For more information contact- 



Windsor Systems 
2407 lime Kiln Lane 
Louisville 
Kentucky 40222 

USA 

Tel 502-425-9560 
Fax; 502-425-6853 



The Soft Centre 

Software House 

Burr Street 

LUTON Bedfordshire 

LU2 0HN England 

Tel 011-44-582-405511 
Fax: 011-44-582-456521 
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NEW! 

OmegaSoft Pascal for the 68020/68881 



P20K it a Pascal package thai will generals code lor all ol the 68000 
series processors, including [he 68881 coprocessor. P20K will run on any 
68000 series computer running ihe OS-9/68000 IMicroware) or PDOS 
(Eyn'ng Research) operating systems v»lh 5I2K or mora tree memory. 

The base package (P20K-B) includes the Compiler. Relocatable Macro 
Assembler. Linking Loader. Screen Editor. Pascal Shell. Linkage Creator. 
Hosl Debugger. Configuration manager, Installation program, and Palch 
uWily. A new feature in tliis compiler is Ihe ability to either Gnk in the parts 
ol the runtime needed by Hie program, or to use (rap handlers lor runtime 
access, to share the runtime library between programs. Complete operating 
system interface is also included using pascal procedures and functions, 
The host debugger allows debugging at both the Pascal and assembly 
language levels ol Programs that run on the host operating system Price 
lor the base package is 1575. 



The runtime source code option (P20K.R) is available lor $100 and includes 
source code for the operating system interlace routines a* well as pascal 
runtime. 

The IrWity source option (P20K-S) is available tor $275 and includes source 
code lor the Screen Editor. Pascal She*. Host Oeouggw. Patch utility, and 

Configuration manager 

The Target debugger option (P20K-T)is $225 and includes object and 
source code. This program allows Pascal lave) and assembly laval 
debugging in a system without operating system, by using a serial link 
connected to the host computer 

Prices do not include shipping charges. Master. Card and Visa accepted. 
OmegaSollis a registered trademark olCer tilled Software Corporation 



Qespac SA. 1 Chemin des Aulx. CH1228. 
Geneva/Plan- ies-Qoates. Switzerland. 
TEL 022-713*00. TLX 429988 

EJsolt AG. Zefgweg 12. CH 5*05 Baden- DattMl, 
Switzerland. TEL 058833377. TLX 828275 



RCS Microsystems Ltd. 141 Uxbridge Road. 
Hampton Hill, Mddesei. England 
TEL Of 9792204. TLX 8951470 

Byte Stud oBortt en. Bulenwa* 14. O-4280 Borken, 

West Germany 

TEL 02861 2147. TLX 813343 



Eltec Elektronik GmbH. GaWeoGaJiieJ-StraBe. 
6500 Maim 42. Posllach 65. West Germany 
TEL 06131- $0031. TLX 4187273 

PEP Elektronik Systeme GmbH. Am KJostorwald 4 
D-B850 Kaurpeuren, Wast Germany 
TEL 08341-8974. TLX 541233 



CERTIFIED 
SO F T W A R E 

CORPORATION 



P.O. BOX 70. RANDOLPH. VT 05060 USA 
TELEPHONE: (802) 728-4062 
FAX: (802) 728-4126 



gliaBEBmEjaajt3jaaaaaragjoj[3MnjoEjaa^ 



FLEXVSK-DOS VMS-DOS 



TM 



Transfer Utilities 

For 68XXX and CoCo* OS-9- Systems 

Now READ - WRITE - DIR - DUMP - EXPLORE 
FLEX, SK-DOS & MS-DOS Disk 

These Utilities come with a rich set of options allowing the 
transfer of text type files from/to FLEX & MS-DOS disks. 

*CoCo systems require the DP. Johnson SDISK utilities and OS-9 and two 
drives of which one must be a "host" floppy. 

CoCo Version: $69.95 68XXX Version $99.95 



S.E. Media 



615 842-6809 

JljEI3regT2jBSJEJa)EJEMgic2reJaf^ 



PO Box 849, HixSOn.TN 37343 
MC/Visa 
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SUPERIOR SOFTWARE 

FOR YOUR 

6809 



SK'OOS* Disk 

Operating System S75.00 

Configuration Manual $50.00 

HUMBUG * Monitor $90.00 

MCROBUG Monitor S30.00 

SPELL N FIX Spelling Checker 989.29 

STAR.DOS for the Coco $34.50 

CHECK N TAX $90.00 



(F 



and 68000 



• SK'DOS* 

Operating System $140.00 

* HUMBUG* Monitor.., , $ 50.00 

* SPELL N FIX 

Spelling Checker (Coming) 




K 



SOFTWAR E SYSTEMS CORPORATION 

BOX 209 -MT KISCO N Y 10649 -91 4-241 -0287 



TIRED OF SLOW COMPUTERS ?? 

PROGRAMS SEEM TO TAKE FOREVER ?? 

DETROIT DATACOMM OFFERS A SOLUTION tl 

A hardware emulator executing 68000 object code !! 

Using a GOMhz dock with a floating point 
multiplier from Bipolar trtteigrated Technology 
the system is capable ot up to 5 MIPS. 

- By running EXISTING software there is 
NO need to redo or convert programs 

• SWAP AND GO remove your existing CPU. 
plug in the hardware emulator and watch 
your program run in record time 

- Performs hardware square roots 
a real time SAVER !! 

Available July 1988 

Detroit Datacom Inc. 

1404 West 14 Mile Road 

Madison Heights, ML 48071 

1-(313)-524-2868 



^ 



^ 
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SOFTWARE FOR 680x AND MSDOS 



DISKETTES & SERVICES 



SUPER SLEUTH DISASSEMBLERS 

EACH fBOFLEX S101-OSS SlOO-UNIFLEX 

OBJECT-ONLY rlritoni EACH IM FLEX. OB». COCO 

k*-*ofcWy ganatal* mm on dh* •*» UMO. »«ft*k vel, binary aOorQ 

weeny fwi;nin»; »an»n w immoto.t vans* 
OM »ia< mm imwin flct Maw obrw Hi onaat OS* 

COCO 003 araH** W MOO.t JJ***»Mi tartan inot MtOKM on , 
MO 10 dn.mmtx. IIOO-FLEX,OS».UlllFLEX.MSDOe. UNIX. SKDOS 

cross-assemblers with macro capabilities 
each j50 flex, osb.unifiex, msdos, unix, skdos 3,j100 all/s20d 

IPOCUY: IIO..0SOJ.OW l/l t.»*O«.MOS.W0a.Z0,ZM.IO»«.0OS1.«O«S.«»a 1 0,31000 
i n C. •»■ toaoVuntoed lAMwi 
i ho —en. iioo iw J. Ooo io> M 

DEBUGGING SIMULATORS FOR POPULAR 6 BIT MICROPROCESSORS 
EACH J75-FLEX $100 OS9 »80-UNIFLEX 
OBJECT-ONLY waani EACH tM-COCO FLEX.COCO OS» 
tftlaractrt*ly tmdmm D/oomor*, Incaida SuulllA lotmanmj. binary totting 

tpM*r lot eaoo/i. <h>*»«j. am. moo ost. m flex 
ASSEMBLER CODE TRANSLATORS FOR 650!. 6600/1. 660* 

*S02nUO» I7J-FLEJ 111,011 IIO-UNIFLEI 

a*oo/i » ion 4 ems id pouiion -mo sm-flex irt-osi ioo.uniflea 

FULL. SCREEN XBASIC PROGRAMS with «» conital 
AVAILABLE FOR FLEX. UNIFLEX. AND MSOOS 

Display QEiEnATOwoocUMENTOR M«nni,taanMI 

UAUMO LIST SYSTEM IIOO KMtU. 190 wllKotll 

IWtNTORY WITH MRP HOC WO Ml . WO ■ntiout 

TABULA RASA SPREADSM EFT HOO a/Foutca, 190 - tiout 

DISK AND XBASIC UTILITY PROGRAM LIBRARY 
I50-FLEX $30 UNIFLEX/MSDOS 

I ov*rb*y. maknUhfl imiM ralaYHa ob> Bum cons. 
■ ot al ot BASIC preotao. vol BASIC pnvam. at 
mFUlx inn Wba ui am) miapt u ai on)) 

CMOOEM TELECOMMUNICATIONS PROGRAM 

f 100. FLEX, OS9.UNIFLEX, US-DOS, UNIX, SKDOS 

OBJECI OKLI .iiiu.i EACH 1*0 

m>r«rOnr*n ««y> tornanal mod*. Ha mu UOOEUT. XON XOFF aK. 

lor COCO and norvCOCO. OHws r*am» COCO naodarn pon la? 10 2400 Baud 



5!5- DISKETTES 

EACH 10-PACK S7.S0-SSSD/SSDD/DSDO 

AmateaA mad*, ouaranraad I0OX Quality, wttfi Tyvah )*c*-a«. nub ringa, and III 

ADDITIONAL SERVICES FOR THE COMPUTING COMMUNITY 
CUSTOMIZED PROGRAMMING 

«a wet cvatomOe any of ma orporami daacrfeeo m inja aBaaraaamaril w HHt 

bftxrva ay aoacKilaO eutMmai uu> ot K> an* IW ptoeaaioya, i 

lot wen anrtomuiiion o*p*not upon in* mi^.i.ej.ny oi 9* modMcauont 

CONTRACT PROGRAMMING 



m program* at mod)*) eih*nQ lauuwik on a ponlra cl Oaao. 
a tatvu urn timvm orottaa) tot ovai Mam «*«*: Hia anaari on **<&> •» 
IM Barfctmafl ootttatt >v """ * *) toot** moll txoiar wr Oil ot 
malnltamai. K*>*ng 1SU. »WTNA)r»). linttac H am al, moil POOula> 
modaM or mmcorhpmari. includmo OEC. IBM. DO. MP. ATaT. and moil 
popular brand* ol mKrocompuWV nAjdtg ««O0vl. 6*09. ZAO, 550 J 
&SOr0. uiino mom aootopnala languaaaa and ociotaung lyvsatnt. oti lytlatiii 
i«T»ns n ilia mm hvo* oammain i i » unau toon) m im h i h , 
»* cAanai lot ov«Bd ptva i t^o la in*"**/ by on now ot by Ola task 

CONSULTING 

*• otflt * Mtlda tanoa al totmatt and MCMUcal cortfuKfto aatvloaa. ^catdlog 
lannnari. adtloa. a-amog. and Oawo". on any tome illllao 10 ootnoulata. 
ttia crivv* lot mmiaang a normaty onad uom ama, aavat and atsantn 



Computor Syalama Conoultonlt, Inc. 

14S4 Lotto Lino, Conyaro, GA 30Z07 

Tolophono 404-463-4570 or 1717 

Wo toko ordora ol ony tlmo, but plan 
long dlscutilen* attar 6, It poioiblo. 

Contoct u* about colalog, dealer, dlocounti. and aaivlcai. 
Mool program* In tourco: glvo eemputar, OS, dlik alto. 
2S% olt multiple purchaaaa of aama pregrom on one order, 
VISA end MASTER CARD accepted; US lunde only, pleaie. 
Add GA tale* tea (if In GA) end S% etilpplng. 
tUMOFUx an Tacn>«4 Stasia C if tio Oott I 
COCO tandy afjpoo I 
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Clearbrook Software Group (604)853-9 n 8 



CSG IMS Is THE full featured relation- 
al database manager for OS9/QSK. 
The comprehensive structured ap- 
plication language and B + Tree Index 
structures make CSG IMS the ideal 
tool for file-Intensive applications. 

CSG IMS tor C0C02/3 OS9 Li/2 (tingle uhi) $169.95 

CSG IMS toe OSS L2 or 68000(mutti user) $495.00 

CSG IMS dimo with manual $30 




MSF - MSDos File Manager for CoCo 3/OS9 Level 2 
allows you to use MSDos disks directly under OS9. 

Require* CoCo 3. OS9 L2, SDISK3 driver $45.00 



SERINA - System Mode Debugger for OS9 L2 

allows you to trace execution of any system-module, 
set break points, assemble and disassemble code and 
examine and change memory. 

Requires CoCo3 or Glmlx II, OS9 L2 & 80 col. terminal $139.00 



ERINA - Symbolic Uter Mode Debugger for OS9 
lets you find bugs by displaying the machine state and 
instuctions being executed. Set break points, change 
memory, assemble and disassemble code. 
Require; 60 column dlaplay. OS9 11/2 $69.00 



Shipping: N. America - $5, Overseas - $10 
Clearbrook Software Group P.O. Box 6000-499. Sumas. WA 93295 
OSS t> a bwtema/v d Hknwa Syitera Cotp.. MSOoa l« a t/vtama/v t* Ukjatcfi Cetp. 



SPECIAL 

ATARI™ 

& 

OS-9™ 



NOW! 

If you have either the 

Atari 520 or 1040 - 

you can take 

advantage of the 

"bargain of a lifetime" 

OS-9 68K and BASIC 

all for the low, low price of: 



$150.00 

Call or Write 

S.E. Medio 

5900 Cassandra Smith Rd. 

Hixsoo. TNI 37343 

d.15 842-46>Ol 



"> 



ATARI & AMIGA 
CALL 

As most of you know, we are very sensitive to your 
wishes, as concerns the contents of these pages. One of 
the things that many of you have repeatedly written or 
called about is coverage for the Atari & Amiga™ series of 
68000 computeis. 

Actually we haven't been loo keen on those systems 
due to a lack of serious software. Ihey were mainly 
expensive 'game-toy" systems. However, recently we are 
seeing more and more honest-to-goodness serious soft- 
ware for the Atari & Amiga machines. That makes a differ- 
ence. I feel that we are ready to start some set ious looking 
into a section for the Atari & Amiga computers. Especially 
so since OS-9 is now tunningon the Atari (review copy on 
the way forevaluation andrepottto you) and mmoredfor 
the Amiga. Many of you ate doing all kinds of interesting 
things on these systems. By sharing we all benefit 

Tills I must stress -Input from you on the Atari 
& Amiga. As most of you are aware, we are a 
"contributor supported" magazine. That means 
that YOU have to do your part. Which is the way it 
has been for over 10 years. We need articles, tech- 
nical, reviews of hardware and software, pro- 
gramming (all languages) and the many other fac- 
ets of support that we have pursued for these many 
years. Also I will need several to volunteer to do 
regular columns on the Atari A Amiga systems. 
Without constant input we cant make it Hyl So, if 
you do your part, we certainly will do ours. How 
about it, drop me a line or give me a phone call and 
I will get additional information right back to you. 
We need your input and support If this Is to succeed! 

DMW 
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THE 6800-6809 BOOKS 
..HEAR y£. HEAR 



OS-9" 
User Notes 



By: Peter Dibble 

The publishers of 68' Micro Journal are proud Co make 
available Che publication of Peter Dibbles 

os9 msem. tarts 

Information for Che BBGHNIR Co the HO, 
tegular 01 CoCo OS9 

Osiug OS9 

HELP, HINTS, PROBLEMS, REVIEWS, SUGGESTIONS, COMPLAINTS, 

0S9 STANDARDS, Generscinx s New Bootstrap, Building, s 

new System Disk, 0S9 Users Group, ecc. 

Program Interfacing to OS9 
DEVICE DESCRIPTORS, DIRECTORIES, "FORKS", PROTECTION, 
"SUSPEND STATE", "PIPES", "INPUT/OUTPUT SYSTEM", ecc. 

Progressing Languages 

Assembly Language Programs snd Interfacing; >sslc09, C, 
Psscsl, snd Cobol reviews, programs, snd uses; ecc. 



Disks Include 
■o cyplag all the Source Listings In. Source Code snd, 
where applicable, assembled or compiled Operating 
Programs. The Source and Che Discussions In che 
Columns can be uaed "aa la", or aa a "Starting Point" 
for developing your OWN no re powerful Programs. 
Programs sometimes use multiple Lsngusges such ss s 
shore Assembly Language Routine for reading a 
Dlreccory, which la Chen "piped" Co a Baalc09 Routine 
for oucpuc formatting, ecc. 



BOOK $9.95 

Typesec -- w/ Source Listings 

(3-Hole Punched; 8 x 11) 

Deluxe Binder $5.50 



All Source Listings on Disk 

1-8" SS, SO Disk SK.95 

2-5" SS. DD Disks S24.95 




FLEX™ 
USER NOTES 

By: Ronald Anderson 

The publishers of 68 MICRO JOURNAL sre proud Co 
ke available che publication of Ron Anderson's FLU 
OSES MOTES, In book form. Thla popular aonthly column 
haa been a regular feature In 68' MICRO JOURNAL SINCE 
1979. It has esrned che respecc of thousands of 
6 8 MICRO JOURNAL resders over che yesrs. In fsct, 
on's column hss been described aa the 'Bible' for 68XX 
users, by some of che world's leading microprocessor 
professionals. The mosc needed snd populsr 68XX book 
available. Over che years Ron'a column haa been one of 
Che mosc populsr In 68 MICRO JOURNAL. And of course 
68 MICRO JOURNAL Is Che most populsr 68XX magazine 
published. 

Listed below are s few of Che TKXT files Included in Che 
book snd on diskette. 

All TEXT files in the book are on the disks 



LOGO CI File load program to offset memaiy — ASM PIC 

MEMOvE Ct Memoiy move program — ASM PIC 

DUMP C1 Pnnter dump program — uses LOGO — ASM PIC 

SUBTEST CI Simulation of 6800 code to 6609, show differences — ASM 

TERMEM C2 Modem input lo disk (or other port input to disk) — ASM 

M C2 Output a file lo modem (or another port) — ASM 

PRINT C3 Parallel (enhanced) printer driver — ASM 

MODEM C2 TTL output to C«T and modem (or other port) — ASM 

SCIPKG CI Scientific math routines — PASCAL 

U CA Mini-monitor, disk resident, many useful functions — ASM 

PRINT C4 Parallel printer driver, without PFLAG — ASM 

SET CS Set printer modes — ASM 

SETBAS1 CS Sel printer modes — A-BASIC 

NOTE: .C1..C2, etc. -Chapter 1, Chspter 2, etc. 



**Over 30 TEXT files Included is ASM (assealbler)-PASCAL- 
PIC (position Independent code) TSC BAS1C-C, ecc. 

Book only: $7.95 + $2.50 S/H 
With disk: 5" $20.90 + $250 S/H 
With disk: 8" $22.90 + $2.50 S/H 



Shipping 4 Handling $3 30 per Book. $2 30 per Dtslset 

Foreign Ordm Add $4 SO Suffice Mail 

or $7.00 Air Mail 

If piying by check • Please allow 4-6 weeks delivery 
* All Currency in US Dollars 

Continually Updated In 68 Micro Journal Monthly 

Computer Publishing Inc. 

5900 Cassandra Smith Rd. 

Hlxson, TN 37343 




'FLEX is s trademark of Technlcsl System* Consultsncs 

"0S9 Is s crsdemsrk of Mlcrowsre snd Hotorols 

"68" Micro Journsl Is s trademark of Computer Publishing Inc. 



(615)842-4601 

Telex 5106006630 
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!!! Subscribe Now !!! 
68 MICRO JOURNAL 

OK, PLEASE ENTER MY SUBSCRIPTION 

Bill My; Mastercard |~| VISA[~~| 



Card* 



. Exp. Dale. 



For 1 Year 



2 Years 



3 Yean 



Enclosed: S_ 



Name 
Street 
City_ 



State 



Zip 



Count ry_ 



My Computer Is: 



Subscription Rates 



U.S.A.: 1 Year $24.50, 2 Years $42.50, 3 Years $64.50 
•Foreign Surface: Add $12.00 per Year to USA Price. 
'Foreign Airmail: Add $48.00 per Year to USA Price. 
'Canada & Mexico: Add $9.50 per Year to USA Price. 

*U.S. Currency Cash or Check Drawn on a USA Bank ! 

V J 

68 Micro Journal 

5900 Cassa dra Smith F 
POB 849 
Hixson,TN 37343 




■ 



Telephone 615 842-4600 
Telex 510 600-6630 
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Reader Service Disks 

Disk- 1 Fileson, Minim. Minicopy.Muufrr's. ••Lifetime. ••Poary 

••Foodlist. ••Dirt. 
Disk- 2 Diikedii w/ iniuA fixes. Prime, •Pnnod, ••Snoopy, 

••Football. ••lie*pawn."Lifeurne. 
Disk- 3 Qwg09. Seel. Sec2. find. TabkZ, Imext. Disk-cxp, 

•Disksave. 
Disk- 4 Mailing Program, •Finddat, ♦Change. 'Testdisk. 

Disk- S •D1SKFDC 1. 'DISKFIX 2. "ICTIIR, ••LOVESIGN. 

••BLACKJAK. "BOWLING. 
Disk- 6 ••Purchiie Order. Index (Disk file indx). 

Disk- 7 Linking Loader. RJoad, Harkness. 

Disk- 8 Crtest. Unphcr (Miy 82). 

Disk- 9 Datecopy, Dirkrix9 (Aug 82). 

Dlsk-10 Home Accounling (July 82) 

Disk. 11 Dissembler (June 84). 

Disk- 12 Modem68 (Miy 84). 

Disk- II •uiitmf68. TestTnf68.*Cleanup."Dskalign,llelp,Daie.TxL 

Dlsk-14 *lnil. 'Test, •Terminil, 'Find, •Diikedii. IniuLib. 

Disk- 15 Modem9 + Updates (Dec. 84 Gilchrist) to Modem9 

(April 84 Commo). 
Disk- 16 Copy.Txt, Copy.Doc. CaLTxl, Cat. Doc. 

Disk- 17 Mitch Utility. RATBAS. A Bisic Pieprocesior. 

Dlsk-IM Parse.Mod. Size.Cmd (SepL 85 Amuuong),CMDCODE. 

CMD.Txt (Sept. 85 Spny). 
Dlsk-19 Cock. Date. Copy, Cat. PDF.LAsm A Doc., lirrors.Sys, 

Do. Log Aim A Doc. 
Disk-20 UNIX Like Tools (July A Sepl 85 Taylor A Gildiria) 

Dragon.C. Grep.C, LS.C, FDUMP.C. 
Dlsk-21 Utilities A Games - Date, Life, Madness, Touch, Goblin, 

Starshol, A IS more. 
| Dlsk.22 Read CPM A Non-FLEX Disks. Fiaier May 1984. 

I Dlsk-21 ISAM. Indexed Sequential file Accessing Methods. 

Condon Nov. 1985. Extensible Table Driven, language 

Recognition Utility, Anderson Marchl986. 
Dlsk-24 68' Micro Journal Index of Aiticles A Bit Bucket Items 

from 1979 - 198S, John Current. 
Dlsk-25 KERMJT for FLEX derived from the UNIX ver. Buig 

Feb. 1986. (2)-5" Disks or (l)-8* Disk. 

Dlsk-26 Compacta UniBoird review, code A diagram, Burlison 

March '86. 
Dlsk-27 ROTABir.lXT. SUMS1EST.TXT. CONDATA.1XT, 

BADMEN.TXT. 
I)isk28 Cr-82 Emulator, bit mapped. 

Drsk-29 "Star Trek 

I)isk-30 Simple Winchester, Dec. '86 Green. 

Dlsk-31 ••• Read/Wiite MS/PC-DOS (SK'DOS) 

Disk-32 Heir-UNIX Type upgrade - 68MJ 2/87 

Disk- 33 Build the GT-4 Teiminal - 68MJ 1 1/87 Condon. 

Dlsk-34 FLEX 6809 Diagnostics. Disk Drive Test, ROM Test, 

RAM Test - 68MJ 4/88Koipi. 
NOTE: 
1 nii is a reader service ONLYI No Warranty is offeied or implied, they are 
as received by 68' Micro Journal, and are for reader convenience ONLY 
(some MAY include fixes or patches). Also 6800 and 6809 piognms an: 
mixed, as each is fairly simple (mostly) to convert to the other. Software is 
available to cross-assemble all. 

• Denotes 6800 - • • Denotes BASIC 

' ' ' Denotes 68000 - 6809 no indicator. 



8" disk $19.50 
5" disk $16.95 



Shipping & Handling -U.S.A. Add - $3.50 
Overseas add: S4.S0 Surface - $7.00 Airmail 

68 MICRO JOURNAL 

5900 Cassandra Smith Rd 
Hixson, TN 37343 

(615)842-4600 - Telex 510 600-6630 
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The Only 6809 BASIC to Binary Compiler for OS-9 

FLEX or SK*DOS 

Even runs on the 68XXX SK*DOS Systems* 



...... ........ % 

Hundreds Sold at 
Suggested Retail: 

$100.00 



• 6809 - OS-9™ users can now transfer their FLEX™ 
Extended BASIC (XBASIC) source files to OS-9, com- 
pile with the OS-9 version and run them as any other 
OS-9 binary "CMD" program. Much faster than BASIC 
programs. 

• 6809 - FLEX users can compiler their BASIC source 
files to a regular FLEX ".CMD* file. Much faster execu- 
tion. 

• 68XXX - SK'DOS*" users running on 68XXX systems 
(such as the Mustang-08/A) can continue to execute 
their 6809 FLEX BASIC and compiled programs while 
getting tilings ported over to the 68XXX. SK'DOS 
allows 6809 programs to run in emulation mode. This is 
the only system we know of flat will run both 6809 & 
68XXX binary files. 

K-BASIC is a true compiler. Compiling BASIC 6809 pro- 
grams to binary command type programs. The savings 
in RAM needed and trie increased speed of binary 
execution makes this a must for the serious user. And 
the price is now RIGHT! 

Don't get caught up in the "Learn a New Lan- 
guage" syndrome - Write Your Program in 
BASIC, Debug it in BASIC and Then Compile 
it to a .CMD Binary File. 



For a LIMITED time 

save over 65%... 

This sale will not be 

repeated after it's 

over! * 
.............. % 

SALE SPECIAL: 

$69.95 




Thank-You-Sale 



OnCy from: 



c 



S.E. Media 



p 



i 



9000 Cassandra Smith Rd. 

Hlxson, Tn 37343 

Telephone 615 842-6609 

Telex 510 600-6630 



A Division of Computer Publishing inc. 
Over 1,200 TJttes - 680D-66i^68aD 



* K.BASIC will tun umfcr 6SXXX SK'DOS n unuUkn male far it* 6805. 

Pnx *kpa to ^m\gc wiha* muz. 
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PT-68000 SINGLE BOARD COMPUTER 

The PT68K2 is Available in a Variety of Formats 
From Basic Kits to Completely Assembled Systems 



BASIC KIT (8 MHZ) • Board, 68000. 
HUMBUG MONITOR ♦ BASIC in ROM. 
4K STATIC RAM. 2 SERIAL PORTS, all 
Components $200 

PACKAGE DEAL - Complete Kit with 
Board 68000 10 MHZ. SK'DOS. 51 2K 
RAM, and all Necessary Parts $548 

ASSEMBLED BOARD (12 MHZ) 
Completely Tested. 1024K RAM, 
FLOPPY CONTROLLER. PIA. SK'OOS 
S899 

ASSEMBLED SYSTEM ■ 10 MHZ 

BOARD. CABINET POWER SUPPLY. 
MONITOR ♦ KEYBOARD. SO TRACK 
FLOPPY DRIVE, CABLES $1299 
For A 20 MEG DRIVE, CONTROLLER 
and CABLES Add $295 



PROFESSIONAL OS9 



"SK'OOSkaTmsmuk <* 

STAR-K SOFTWARE SYSTEMS CORP. 

"08» a a TnrStmuk sf M boast 



5500 




FEATURES 

' MC68000 Processor. 8 MHZ Clock (optional 
10.12.5 MHZ) 

• 512K or 1024K of DRAM (no wait stales) 
' 4K of SPAM (61 16) 

' 32K.64K or 128K ol EPROM 

• Four RS-232 Serial Ports 

* Floppy risk controler wil control up to lour 
5 1/4". 40 or 80 track. 

' Clock with on -board battery. 
' 2 -6 bit Parallel Pons 

* Board can be mounted in an IBM type PC/ 
XT cabinet and has a power connector to 
malcn the IBM type power supply 

' Expansion ports - 6 IBM PC/XT compatible 
I/O ports The HUMBUG- monitor supports 
monochrome and/or color adaptor cards 
and Western Digiial Winchester interface 
cards 



PERIPHERAL TECHNOLOGY 

1480 Terrell Mill Rd., Suite 870 
Marietta, Georgia 30067 

404/984-0742 Send For Catalogue 

VISA/MASTERCARD/CHECK/C.O.D. For Complete Information On All Products 



DATA-COMP 



SPECIAL 



Heavy Duty Power Supplies 




For A IrWted tine our HEAVY OUTY SWTTCWG POWER SUPPLY. These era BRAND NEW unla. Note that these 
prfces are leas than 1/4 the normal price for theee high qualty unls. 



Make tatert 

Sbs 10.5 x 5 x 25 inches 
Including heavy mounting bncko and heaafe 4 

Rating: in 1 10/220 vote ac (strap change) Out: 130 wans 

OUpUt +Sv - 10 STTTfE 

+12v-4.0 amps 
+ 12v . 2.0 amps 
-12v - OS amp 

MiDng Canair. Tcnrsnal strip 

Load Reaction: AiAtsnrfic shut araal recovery 

SPECIAL: $»J5 each 

2 or more $4955 each 

Add: 57 JO ex* S/H 



J ^ 



Make: Gaxhert 

Size 10.75 x 62 x 225 inches 

Raring: 110/220 ac (strap change) Ouc 81 wars 

Outptfs: +Sv . 8.0 amps 
+12v - 24 amps 
+12v - 24 amps 
+12v -2.1 amps 
•I2v . 0.4 amps 

Miring Conrtzaas: Malex 

Load Reaction: Atxmaric shan tircuii recovery 

SPECIAL: $4955 each 

2 or more $3955 each 

AAfc J7J0SIH cad) 



5600 



Smth Rd, Hbaon, Ttv 37343 Tatepnons 615 Bgjgg Team 510 6Q06B3D 



64 



September '88 



68 Mao Journal 




Mj^^the — llStaiV' 



Now Offenng *FLEX" (2 Versions) 
AND 'STAR-DOS PLUS+ '" 




For Otttmrtng Call 

(615)842-4600 



FROM - DATA-COMP, C.P.I. 



A Family of 100% 68XX Support Facilities 

The Folks who FIRST Put FLEX" on 

The CoCo 
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STAR DOS PLUS + 

• Functions Same as FLEX 

• Reads • writes FLEX Disk* 

• Run FLEX Programs 

• Just type: Run 'STAR DOS" 

• Over 300 utilities & programs 
to choose from 



f 


TSC Editor 




NOW $35.00 


L 


y) 



PLUS 

ALL VERSIONS OF FLEX & STAR-DOS 

+ Read-Write-Dir RS Disk 
+ Run RS Basic from Both 
+ More Free UtJities 




INCLUDE 

+ External Terminal Program 
+ Test Disk Program 
+ Disk Examine & Repair Program 
+ Memoty Examine Program 
+ Many Many More!!! 



TSC Assembler 




(bgtMOO 


L 


NOW $35 OO 

1 



CoCo Disk Drive Sgsleuis 



2 TH1NLINE DOUBLE SIDiO DOUBLE DENSITY DISK DRIVES 
SYSTEM WITN FDUEE SUCI-L* .CAIINtT, 01SI OllVE CARLE. JiH 
NEW DISK CONTROLLER JP0-CP VJTH J-OOS.RS-DOS OPERATINC 
SYSTEMS. |4*«.») 

• Spiel (y What CONTROLLER You Want JAN, or RADIO SHBCX 

TMINLINE DOUBLE S1DE0 
DOUBLE DENSITY *0 TRACKS 



MK VPCSAOi 

FOR C.0,E, P, AND COCO II 
RADIO SHACK BASIC I. 2 
EAD10 SHACK DISK BASIC 1.1 



Verhjhm Diskettes 



Sinftlf Sldad Doubl« DtDtity 
Deubl* Sided Double Deoelty 



Cooli oilers 



JtN JPO-CP WITH J-0OS 
WITH J-OOS, KS-OOS 
RADIO SHACK ] . I 

RADIO SHACK Diik CONTROLLER 1.1 



Disk Di ive Ciu!>-'> 



Ceble for One Drive 
Cable for Two Drive* 





DISK OltVE CABINET POl A 


III*. as 


SINGLE (WIVE 




DISK DRIVE CAEINET POl TWO 




TK1NLINE DRIVES 


} 14.00 


nirruj 


} 14.00 


EPSON U-BO 




EPSON HX-70 




EPSON KX-100 


•139. 95 


ACOMoaiE* rot ifboc 


$119. *» 




tiM.aj 


61*6 2E SEEIAL BOARD 


81*9 32K EXPAND TO I2BK 




EPSON MJ-M-UO KIIMNS 


413*. aj 


EPSON LX-80 ElEtONS 




TEACTOE UNITS PO« LX-BO 




CABLES 4 •THE* IHTCK/ACKS 




CALL POR PRICING 


i la.tj 




i 24. as 





I 29.95 



t 24. as 
i 24. as 



* 4».»5 

t ta.as 



B2M.9J 

•us.aj 
$»*i.*i 



JI49.95 

» s.as 



DATA-COMP 

5900 Cassandra Smith Rd 
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SHIPPING tS* 

f^:^ d ^" s .| (615)842-4600 

n(H. $2.50 'Of OtoWring 

Telex 5106006630 
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An Ace of a System in Spades! The New 

MUSTANG-08/A 



I 

I 

I 

I 

I 

I 

I 
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I 

I 

I 

I 

I 

I 
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I 
I 



Now with 4 aerial ports standard At speed Increase to 12 Mhz CPU + on board battery 
backup and Includes the PROFESSIONAL OS*9 package - Including the $500.00 OS-9 

C compUerl This offer wont last forever! 



NOT 128K, NOT 512K 



tFULL 768K No Wait RAM 



Now even faster! 
with 12 Mhz CPU 



I 



The MUSTANOOF* system took mwy hand from al 
I other 68006 syaema we tested, naming OS-9 6BKI 
I The MU5TANG-09 Mudes OS936K™ and** Peter 
| SJartOi StVDOS™ . SKDOS is a single user, siogfe tasteng 
| system that takes up where *R£X~ left off. SKDQS is 
| actualy a efiXXX FLEX type system (At* a 7SC product; 



C OnnpQe time OS« 68K. Hart Diak^ 
MJ5TANQ4B 8 Ms CPU Ofrfn 32«K 

Other poeuhr B009 tytam 1 nil <- 05 sac 

MUSTANM20 Omtn-Zlsae 



J? 




cw 


MC6800B 


RAM 


768K 




NoWstSaaa 


PORTS 


4-RS232 




2-8blParaU 


CLOCK 


MK48T02 


EPR0M 


16K33(arB4K 


aoppv 


W01772 


WFO DSK 


M^fee Rwt 



12 Mhz 
2S6K Chfce 

UC6SB1 QUART 
MCS21 P1A 

FfeeJ Tims Ob* Bst BAJ 

StMDmw 
WDHXB Bead 



| System Includes OS-9 68K or SK-DOS - Your Choice 



Sperifieations 

I 
I 
I 
I 

I 
I 
I 
I 

}lf Now more serial ports - faster CPU ' 
Battery B/U - and $850.00 OS^9 Profes- 1 
,. slonal with C compiler included! 



*$400.00 



J 



See Musfang-02 Ad • page 5 
for trade-in delate 




MUSTANG-08 



LOOK 



Ssinls 



cs-9 em.. 

QS-9 68K. 



32 ha Reiner 

.18.0... 9.0 
. .9. 8... 6. 3 



r hi l; v 
raglatar long I; 

for (bO; I < 090999; «-ff); 



a 25 Megabyte 
4^ Hard Disk System 

$2,398.90 

Complete with PROFESSIONAL OS-9 

includes the $500.00 C compiler, PC 

style cabinet, heavy duty power supply, 

5' DDDS 60 track floppy, 25 MegByte 

•^ Hard Disk - Ready to Run j 

UnSte other 68006 systems there are several significant 
dKarorcBS. The MUSTANG-08 is a M 12 Megahertz system. The 
RAM uses NO wait stales, this means fid bora MUSTANG type 
performance. 

Abo, albwrg tor addressable HDMPROM the RAM is the 
maximum slowed tor a 68008. The 68008 can only address a 
total of 1 Megabytes of RAM The design afbws al the RAM 
apace (tor al practO purrmrf) to be utilized. What Is ret 
avalabte to the user is requhaJ and reserved for the system 

A RAM daK of 480K can be aaaiy corfgurad. tea*? 288K 
free for crograrrvsyaterr. RAM apace. The RAM OtSK can be 
configured to any son your application raqurea (system must 
have 128K in addition to Is other retirements) Leaving the 
lemaMer of the ongina* 768K tor pmgram use. Sutraer* 
source included (oVtvere, etc.) 



kotTSC 



MUSTANOMbta 
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Data-Comp Division 




A Oecade of Quality Service"^ 

7 X^ p/ Systems World Wkfe 

Computer Publishing, Inc. 5900 Cassarda Sfttfi Road 
Telephone 615 842-4601 • Telex 510 60O&3D rfasori Tn 37343 
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